| [3331] | 1 | MODULE YOE_UVRAD |
|---|
| 2 | |
|---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 4 | |
|---|
| 5 | IMPLICIT NONE |
|---|
| 6 | |
|---|
| 7 | SAVE |
|---|
| 8 | |
|---|
| 9 | ! ------------------------------------------------------------------ |
|---|
| 10 | !* ** *YOE_UVRAD* - COEFFICIENTS FOR ULTRAVIOLET RADIATION PROCESSOR |
|---|
| 11 | ! ------------------------------------------------------------------ |
|---|
| 12 | INTEGER(KIND=JPIM) :: NUV, NRADUV, NUVTIM |
|---|
| 13 | INTEGER(KIND=JPIM) :: IPUV(3000), JCOP(3000), JUVLAM(3000) |
|---|
| 14 | LOGICAL :: LUVPROC, LUVTDEP, LUVDBG |
|---|
| 15 | |
|---|
| 16 | REAL(KIND=JPRB) :: RK250(3000), RTUV1(3000), RTUV2(3000), RSUVB0(3000), RAYUVB(3000) |
|---|
| 17 | REAL(KIND=JPRB) :: RASA(4), RASB(4), RASC(4), RASD(4), RASE(4), RASF(4) |
|---|
| 18 | REAL(KIND=JPRB) :: RFA0(4), RFA1(4), RFB0(4), RFB1(4), RFB2(4), RFB3(4), & |
|---|
| 19 | & RFC0(4), RFC1(4), RFC2(4), RFC3(4), RFD0(4), RFD1(4), RFD2(4), RFD3(4) |
|---|
| 20 | REAL(KIND=JPRB) :: RTAUVA(4,6), RPIUVA(4,6), RCGUVA(4,6) |
|---|
| 21 | REAL(KIND=JPRB) :: RXPO(3), RXPL(3), RCIEAS(3000), RSUVB(3000), RUVLAM(3000) |
|---|
| 22 | REAL(KIND=JPRB) :: RFCAER, RFCOZO, RMUZUV |
|---|
| 23 | ! ----------------------------------------------------------------- |
|---|
| 24 | !$OMP THREADPRIVATE(ipuv,jcop,juvlam,luvdbg,luvproc,luvtdep,nraduv,nuv,nuvtim,rasa,rasb) |
|---|
| 25 | !$OMP THREADPRIVATE(rasc,rasd,rase,rasf,rayuvb,rcguva,rcieas,rfa0,rfa1,rfb0,rfb1,rfb2,rfb3) |
|---|
| 26 | !$OMP THREADPRIVATE(rfc0,rfc1,rfc2,rfc3,rfcaer,rfcozo,rfd0,rfd1,rfd2,rfd3,rk250,rmuzuv,rpiuva) |
|---|
| 27 | !$OMP THREADPRIVATE(rsuvb,rsuvb0,rtauva,rtuv1,rtuv2,ruvlam,rxpl,rxpo) |
|---|
| 28 | END MODULE YOE_UVRAD |
|---|
| 29 | |
|---|
