***********************************************************************
      SUBROUTINE CALSST        !" SST 計算 （一定値 ）
     O         ( GSST  ,
     I           ALAT  ,
     I           TEQ   , ALAT0 , ALAT1 , ALPHA , BETA  , GAMMA ,
     I           ALACON,
     I           IDIM  , JDIM                                   )
*   [PARAM]
      INTEGER    IDIM, JDIM
*
*   [OUTPUT]
      REAL       GSST  ( IDIM, JDIM )
*
*   [INTERNAL PARAM]
      REAL       SST
      DATA       SST/ 270. /
      SAVE       SST
***
***   [INPUT]
**      REAL       ALAT  ( JDIM )
**      REAL       TEQ
**      REAL       ALAT0
**      REAL       ALAT1
**      REAL       ALPHA
**      REAL       BETA
**      REAL       GAMMA
**      REAL       ALACON
*
      WRITE(6,*) 'SET CONSTANT SST :',SST,'K'
*
      DO 2500 J = 1, JDIM
         DO 2510 I = 1, IDIM
            GSST( I,J ) = SST
 2510    CONTINUE
 2500 CONTINUE
*
      RETURN
      END