yomrip.F90

Go to the documentation of this file.

MODULE yomrip

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------

!*    Real time related variables (updated in UPDTIM)

!     NINDAT : run initial date in the form AAAAMMDD
!     NSSSSS : initial time in seconds (e.g. for 12h, 43200)
!     RTIMST : ABSOLUTE TIME OF THE MODEL AT START

!     NSTADD : NUMBER OF DAYS SINCE START OF THE MODEL
!     NSTASS : NUMBER OF SECONDS since start of model modulo(86400)
!     RSTATI : NUMBER OF SECONDS SINCE START OF THE MODEL
!     RTIMTR : ABSOLUTE TIME OF THE MODEL

!     RHGMT  : GMT TIME OF THE MODEL  (BETWEEN 0 AND 86400)
!     REQTIM : EQUATION OF TIME

!     ------------------------------------------------------------------

!*    Sun related variables (updated in UPDTIM)
!     RSOVR  : TRUE SOLAR TIME (GMT+EQUATION OF TIME)

!     RDEASO : DISTANCE EARTH-SUN
!     RDECLI : DECLINATION
!     RWSOVR : IN RADIANS, TRUE SOLAR TIME (GMT+EQUATION OF TIME)
!              THIS ANGLE IS ALSO PI - (LONGITUDE OF THE POINT
!              WHERE THE SUN IS AT ZENITH)
!     RIP0   : I0 WEIGHTED BY THE DISTANCE EARTH-SUN

!     RCODEC : COSINE OF THE DECLINATION
!     RSIDEC :   SINE OF THE DECLINATION

!     RCOVSR : COSINE OF TRUE SOLAR TIME
!     RSIVSR :   SINE OF TRUE SOLAR TIME

!     ------------------------------------------------------------------

!*    Moon related variables (updated in UPDTIM)

!     RDECLU : LUNAR DECLINATION
!     RTMOLT : IN RADIANS, TRUE LUNAR TIME (GMT+EQUATION OF TIME)
!              THIS ANGLE IS ALSO PI - (LONGITUDE OF THE POINT
!              WHERE THE MOON IS AT ZENITH)
!     RIP0LU : LUNAR I0 (DOWNWARD TOA LUNAR FLUX)

!     RCODECLU : COSINE OF THE LUNAR DECLINATION
!     RSIDECLU :   SINE OF THE LUNAR DECLINATION

!     RCOVSRLU : COSINE OF TRUE LUNAR TIME
!     RSIVSRLU :   SINE OF TRUE LUNAR TIME

!     ------------------------------------------------------------------

!*    Time step related variables

!     RDTSA  : TDT  /RA
!     RDTSA2 : RDTSA**2
!     RDTS62 : RDTSA**2/6
!     RDTS22 : RDTSA**2/2

!     RTDT   : TDT

INTEGER(KIND=JPIM) :: nindat
INTEGER(KIND=JPIM) :: nsssss
INTEGER(KIND=JPIM) :: nstadd
INTEGER(KIND=JPIM) :: nstass
REAL(KIND=JPRB) :: rtimst
REAL(KIND=JPRB) :: rstati
REAL(KIND=JPRB) :: rtimtr
REAL(KIND=JPRB) :: rhgmt
REAL(KIND=JPRB) :: reqtim
REAL(KIND=JPRB) :: rsovr
REAL(KIND=JPRB) :: rdeaso
REAL(KIND=JPRB) :: rdecli
REAL(KIND=JPRB) :: rwsovr
REAL(KIND=JPRB) :: rip0
REAL(KIND=JPRB) :: rcodec
REAL(KIND=JPRB) :: rsidec
REAL(KIND=JPRB) :: rcovsr
REAL(KIND=JPRB) :: rsivsr
REAL(KIND=JPRB) :: rdtsa
REAL(KIND=JPRB) :: rdtsa2
REAL(KIND=JPRB) :: rdts62
REAL(KIND=JPRB) :: rdts22
REAL(KIND=JPRB) :: rtdt
REAL(KIND=JPRB) :: rdeclu
REAL(KIND=JPRB) :: rtmolt
REAL(KIND=JPRB) :: rip0lu
REAL(KIND=JPRB) :: rcodeclu
REAL(KIND=JPRB) :: rsideclu
REAL(KIND=JPRB) :: rcovsrlu
REAL(KIND=JPRB) :: rsivsrlu
!     ------------------------------------------------------------------
!$OMP THREADPRIVATE(nindat,nsssss,nstadd,nstass,rcodec,rcodeclu,rcovsr,rcovsrlu,rdeaso,rdecli,rdeclu)
!$OMP THREADPRIVATE(rdts22,rdts62,rdtsa,rdtsa2,reqtim,rhgmt,rip0,rip0lu,rsidec,rsideclu,rsivsr)
!$OMP THREADPRIVATE(rsivsrlu,rsovr,rstati,rtdt,rtimst,rtimtr,rtmolt,rwsovr)
END MODULE yomrip