yemggcm.F90

Go to the documentation of this file.

MODULE yemggcm

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!----- Comdeck YEMGGCM *** FOR INTERNAL USE IN EGG GROUP ONLY

INTEGER(KIND=JPIM) :: nymggi
INTEGER(KIND=JPIM) :: nymggr
INTEGER(KIND=JPIM) :: nymggwh
REAL(KIND=JPRB) :: xlatr
REAL(KIND=JPRB) :: xlonr
REAL(KIND=JPRB) :: xggpk
REAL(KIND=JPRB) :: xrpksm
REAL(KIND=JPRB) :: xlat0r
REAL(KIND=JPRB) :: xlon0r
REAL(KIND=JPRB) :: xlon0u
REAL(KIND=JPRB) :: xipore
REAL(KIND=JPRB) :: xjpore
REAL(KIND=JPRB) :: xggm0
REAL(KIND=JPRB) :: xlon1r
REAL(KIND=JPRB) :: xlon1u
REAL(KIND=JPRB) :: xlat1r
REAL(KIND=JPRB) :: xlon2r
REAL(KIND=JPRB) :: hsud
REAL(KIND=JPRB) :: xbeta

!      INTERNAL TO EGGX  ROUTINES
!     --------------------------------
!     THIS  BLOCK SHOULD NOT BE CONFUSED WITH THE COMMON OF
!     EFFECTIVE GEOGRAPHICAL PARAMETERS FOR ARPEGE-ALADIN

!     NYMGGI = 10 WHEN THE  HAS BEEN INITIALIZED
!     NYMGGR : COPY OF KROTEQ
!     NYMGGWH = 0, DOMAIN AWAY FROM GREENWICH
!             = 1, DOMAIN ASTRIDE GREENWICH
!     XLATR  : COPY OF PLATR
!     XLONR  : COPY OF PLONR
!     XGGPK  : EFFECTIVE PROJECTION PARAMETER PRPK
!     XRPKSM : NORMALISED PROJECTOR AMPLITUDE IN LAMBERT PROJECTION
!     XLAT0R : ROTATED PROJECTION REFERENCE LATITUDE
!     XLON0R : ROTATED PROJECTION REFERENCE LONGITUDE
!     XLON0U : AS XLON0R BUT INCREASED BY 2*RPI IF ASTRIDE GREENWICH
!     XIPORE : LOCATION OF GRID ORIGIN IN X (POLE IF STEREO-LAMBERT)
!              XIPORE = (IP - NDLUNG)
!     XJPORE : LOCATION OF GRID ORIGIN IN Y
!              XJPORE = (JP - NDGUNG)
!     XGGM0  : SCALE OF MAP FACTOR FUNCTION
!     XLON1R : ROTATED LONGITUDE OF SW CORNER OF DOMAIN
!     XLON1U : ROTATED LONGITUDE OF SW CORNER MODIFIED IF ASTRIDE GREENWICH
!     XLAT1R : ROTATED LATITUDE OF SW CORNER OF DOMAIN
!     XLON2R : ROTATED LONGITUDE OF NE CORNER OF DOMAIN
!     HSUD    = 1., DOMAIN IN NORTH HEMISPHERE OR IN TROPICAL BAND
!             = -1., DOMAIN PROJECTED BY STEREO/LAMBERT WITH RESPECT TO
!                   SOUTH POLE
!     XBETA  : ANGLE BETWEEN X-AXIS AND LATITUDE AT LONG. XLON0R

END MODULE yemggcm