MODULE YOMGC USE PARKIND1 ,ONLY : JPIM ,JPRB IMPLICIT NONE SAVE ! ------------------------------------------------------------------ !* Grid point boundaries ! RCORI : Coriolis parameter "f = 2 Omega sin(theta)". ! RCORIC : 2 Omega cos(theta). ! GEMU : sine of geographic latitude "sin(theta)". ! GSQM2 : cosine of geographic latitude "cos(theta)". ! GELAM : geographic longitude "lambda". ! GELAT : geographic latitude "theta". ! GECLO : cosine of geographic longitude "cos(lambda)". ! GESLO : sine of geographic longitude "sin(lambda)". ! GM : mapping factor "M". ! GOMVRL : zonal component of vector "2 vec(Omega) wedge a vec(k)". ! GOMVRM : meridian component of vector "2 vec(Omega) wedge a vec(k)". ! GNORDL : zonal component "gnordl" of unit vector directed towards ! the geographic Northern pole. ! GNORDM : meridian component "gnordm" of unit vector directed towards ! the geographic Northern pole. ! GNORDLCL : zonal component of vector "rssavnabla gnordl". ! GNORDMCL : zonal component of vector "rssavnabla gnordm". ! GNORDMCM : meridian component of vector "rssavnabla gnordm". ! OROG : grid-point surface orography "Phi_s". ! OROGL : zonal component of "vnabla' Phi_s". ! OROGM : zonal component of "vnabla' Phi_s". ! OROGLL,OROGMM,OROGLM: second-order reduced derivatives of surface orography. ! GAW : Gaussian weight. ! NGPLAT : DM-global number of the Gaussian grid latitude. ! NUNIQUEGP : pointer array (see computation in sugem2.F90). REAL(KIND=JPRB),ALLOCATABLE:: RCORI(:) REAL(KIND=JPRB),ALLOCATABLE:: RCORIC(:) REAL(KIND=JPRB),ALLOCATABLE:: GEMU(:) REAL(KIND=JPRB),ALLOCATABLE:: GSQM2(:) REAL(KIND=JPRB),ALLOCATABLE:: GELAM(:) REAL(KIND=JPRB),ALLOCATABLE:: GELAT(:) REAL(KIND=JPRB),ALLOCATABLE:: GECLO(:) REAL(KIND=JPRB),ALLOCATABLE:: GESLO(:) REAL(KIND=JPRB),ALLOCATABLE:: GM(:) REAL(KIND=JPRB),ALLOCATABLE:: GOMVRL(:) REAL(KIND=JPRB),ALLOCATABLE:: GOMVRM(:) REAL(KIND=JPRB),ALLOCATABLE:: GNORDL(:) REAL(KIND=JPRB),ALLOCATABLE:: GNORDM(:) REAL(KIND=JPRB),ALLOCATABLE:: GNORDLCL(:) REAL(KIND=JPRB),ALLOCATABLE:: GNORDMCL(:) REAL(KIND=JPRB),ALLOCATABLE:: GNORDMCM(:) REAL(KIND=JPRB),ALLOCATABLE:: OROG(:) REAL(KIND=JPRB),ALLOCATABLE:: OROGL(:) REAL(KIND=JPRB),ALLOCATABLE:: OROGM(:) REAL(KIND=JPRB),ALLOCATABLE:: OROGLL(:) REAL(KIND=JPRB),ALLOCATABLE:: OROGMM(:) REAL(KIND=JPRB),ALLOCATABLE:: OROGLM(:) REAL(KIND=JPRB),ALLOCATABLE:: GAW(:) INTEGER(KIND=JPIM),ALLOCATABLE:: NGPLAT(:) INTEGER(KIND=JPIM),ALLOCATABLE:: NUNIQUEGP(:) ! ---------------------------------------------------------------- !$OMP THREADPRIVATE(gaw,geclo,gelam,gelat,gemu,geslo,gm,gnordl,gnordlcl,gnordm,gnordmcl,gnordmcm,gomvrl) !$OMP THREADPRIVATE(gomvrm,gsqm2,ngplat,nuniquegp,orog,orogl,orogll,oroglm,orogm,orogmm,rcori,rcoric) END MODULE YOMGC