yomgc.F90

Go to the documentation of this file.

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