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 | END MODULE YOE_UVRAD |
---|
25 | |
---|