| 1 | MODULE YOMRIP |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | |
|---|
| 11 | !* Real time related variables (updated in UPDTIM) |
|---|
| 12 | |
|---|
| 13 | ! NINDAT : run initial date in the form AAAAMMDD |
|---|
| 14 | ! NSSSSS : initial time in seconds (e.g. for 12h, 43200) |
|---|
| 15 | ! RTIMST : ABSOLUTE TIME OF THE MODEL AT START |
|---|
| 16 | |
|---|
| 17 | ! NSTADD : NUMBER OF DAYS SINCE START OF THE MODEL |
|---|
| 18 | ! NSTASS : NUMBER OF SECONDS since start of model modulo(86400) |
|---|
| 19 | ! RSTATI : NUMBER OF SECONDS SINCE START OF THE MODEL |
|---|
| 20 | ! RTIMTR : ABSOLUTE TIME OF THE MODEL |
|---|
| 21 | |
|---|
| 22 | ! RHGMT : GMT TIME OF THE MODEL (BETWEEN 0 AND 86400) |
|---|
| 23 | ! REQTIM : EQUATION OF TIME |
|---|
| 24 | |
|---|
| 25 | ! ------------------------------------------------------------------ |
|---|
| 26 | |
|---|
| 27 | !* Sun related variables (updated in UPDTIM) |
|---|
| 28 | ! RSOVR : TRUE SOLAR TIME (GMT+EQUATION OF TIME) |
|---|
| 29 | |
|---|
| 30 | ! RDEASO : DISTANCE EARTH-SUN |
|---|
| 31 | ! RDECLI : DECLINATION |
|---|
| 32 | ! RWSOVR : IN RADIANS, TRUE SOLAR TIME (GMT+EQUATION OF TIME) |
|---|
| 33 | ! THIS ANGLE IS ALSO PI - (LONGITUDE OF THE POINT |
|---|
| 34 | ! WHERE THE SUN IS AT ZENITH) |
|---|
| 35 | ! RIP0 : I0 WEIGHTED BY THE DISTANCE EARTH-SUN |
|---|
| 36 | |
|---|
| 37 | ! RCODEC : COSINE OF THE DECLINATION |
|---|
| 38 | ! RSIDEC : SINE OF THE DECLINATION |
|---|
| 39 | |
|---|
| 40 | ! RCOVSR : COSINE OF TRUE SOLAR TIME |
|---|
| 41 | ! RSIVSR : SINE OF TRUE SOLAR TIME |
|---|
| 42 | |
|---|
| 43 | ! ------------------------------------------------------------------ |
|---|
| 44 | |
|---|
| 45 | !* Moon related variables (updated in UPDTIM) |
|---|
| 46 | |
|---|
| 47 | ! RDECLU : LUNAR DECLINATION |
|---|
| 48 | ! RTMOLT : IN RADIANS, TRUE LUNAR TIME (GMT+EQUATION OF TIME) |
|---|
| 49 | ! THIS ANGLE IS ALSO PI - (LONGITUDE OF THE POINT |
|---|
| 50 | ! WHERE THE MOON IS AT ZENITH) |
|---|
| 51 | ! RIP0LU : LUNAR I0 (DOWNWARD TOA LUNAR FLUX) |
|---|
| 52 | |
|---|
| 53 | ! RCODECLU : COSINE OF THE LUNAR DECLINATION |
|---|
| 54 | ! RSIDECLU : SINE OF THE LUNAR DECLINATION |
|---|
| 55 | |
|---|
| 56 | ! RCOVSRLU : COSINE OF TRUE LUNAR TIME |
|---|
| 57 | ! RSIVSRLU : SINE OF TRUE LUNAR TIME |
|---|
| 58 | |
|---|
| 59 | ! ------------------------------------------------------------------ |
|---|
| 60 | |
|---|
| 61 | !* Time step related variables |
|---|
| 62 | |
|---|
| 63 | ! RDTSA : TDT /RA |
|---|
| 64 | ! RDTSA2 : RDTSA**2 |
|---|
| 65 | ! RDTS62 : RDTSA**2/6 |
|---|
| 66 | ! RDTS22 : RDTSA**2/2 |
|---|
| 67 | |
|---|
| 68 | ! RTDT : TDT |
|---|
| 69 | |
|---|
| 70 | INTEGER(KIND=JPIM) :: NINDAT |
|---|
| 71 | INTEGER(KIND=JPIM) :: NSSSSS |
|---|
| 72 | INTEGER(KIND=JPIM) :: NSTADD |
|---|
| 73 | INTEGER(KIND=JPIM) :: NSTASS |
|---|
| 74 | REAL(KIND=JPRB) :: RTIMST |
|---|
| 75 | REAL(KIND=JPRB) :: RSTATI |
|---|
| 76 | REAL(KIND=JPRB) :: RTIMTR |
|---|
| 77 | REAL(KIND=JPRB) :: RHGMT |
|---|
| 78 | REAL(KIND=JPRB) :: REQTIM |
|---|
| 79 | REAL(KIND=JPRB) :: RSOVR |
|---|
| 80 | REAL(KIND=JPRB) :: RDEASO |
|---|
| 81 | REAL(KIND=JPRB) :: RDECLI |
|---|
| 82 | REAL(KIND=JPRB) :: RWSOVR |
|---|
| 83 | REAL(KIND=JPRB) :: RIP0 |
|---|
| 84 | REAL(KIND=JPRB) :: RCODEC |
|---|
| 85 | REAL(KIND=JPRB) :: RSIDEC |
|---|
| 86 | REAL(KIND=JPRB) :: RCOVSR |
|---|
| 87 | REAL(KIND=JPRB) :: RSIVSR |
|---|
| 88 | REAL(KIND=JPRB) :: RDTSA |
|---|
| 89 | REAL(KIND=JPRB) :: RDTSA2 |
|---|
| 90 | REAL(KIND=JPRB) :: RDTS62 |
|---|
| 91 | REAL(KIND=JPRB) :: RDTS22 |
|---|
| 92 | REAL(KIND=JPRB) :: RTDT |
|---|
| 93 | REAL(KIND=JPRB) :: RDECLU |
|---|
| 94 | REAL(KIND=JPRB) :: RTMOLT |
|---|
| 95 | REAL(KIND=JPRB) :: RIP0LU |
|---|
| 96 | REAL(KIND=JPRB) :: RCODECLU |
|---|
| 97 | REAL(KIND=JPRB) :: RSIDECLU |
|---|
| 98 | REAL(KIND=JPRB) :: RCOVSRLU |
|---|
| 99 | REAL(KIND=JPRB) :: RSIVSRLU |
|---|
| 100 | ! ------------------------------------------------------------------ |
|---|
| 101 | !$OMP THREADPRIVATE(nindat,nsssss,nstadd,nstass,rcodec,rcodeclu,rcovsr,rcovsrlu,rdeaso,rdecli,rdeclu) |
|---|
| 102 | !$OMP THREADPRIVATE(rdts22,rdts62,rdtsa,rdtsa2,reqtim,rhgmt,rip0,rip0lu,rsidec,rsideclu,rsivsr) |
|---|
| 103 | !$OMP THREADPRIVATE(rsivsrlu,rsovr,rstati,rtdt,rtimst,rtimtr,rtmolt,rwsovr) |
|---|
| 104 | END MODULE YOMRIP |
|---|
