yoe_uvrad.F90

Go to the documentation of this file.

MODULE yoe_uvrad

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOE_UVRAD* - COEFFICIENTS FOR ULTRAVIOLET RADIATION PROCESSOR
!     ------------------------------------------------------------------
INTEGER(KIND=JPIM) :: nuv, nraduv, nuvtim
INTEGER(KIND=JPIM) :: ipuv(3000), jcop(3000), juvlam(3000)
LOGICAL :: luvproc, luvtdep, luvdbg

REAL(KIND=JPRB) :: rk250(3000), rtuv1(3000), rtuv2(3000), rsuvb0(3000), rayuvb(3000)
REAL(KIND=JPRB) :: rasa(4), rasb(4), rasc(4), rasd(4), rase(4), rasf(4)
REAL(KIND=JPRB) :: rfa0(4), rfa1(4), rfb0(4), rfb1(4), rfb2(4), rfb3(4), &
 & RFC0(4), RFC1(4), RFC2(4), RFC3(4), RFD0(4), RFD1(4), RFD2(4), RFD3(4)
REAL(KIND=JPRB) :: rtauva(4,6), rpiuva(4,6), rcguva(4,6)
REAL(KIND=JPRB) :: rxpo(3), rxpl(3), rcieas(3000), rsuvb(3000), ruvlam(3000)
REAL(KIND=JPRB) :: rfcaer, rfcozo, rmuzuv
!     -----------------------------------------------------------------
!$OMP THREADPRIVATE(ipuv,jcop,juvlam,luvdbg,luvproc,luvtdep,nraduv,nuv,nuvtim,rasa,rasb)
!$OMP THREADPRIVATE(rasc,rasd,rase,rasf,rayuvb,rcguva,rcieas,rfa0,rfa1,rfb0,rfb1,rfb2,rfb3)
!$OMP THREADPRIVATE(rfc0,rfc1,rfc2,rfc3,rfcaer,rfcozo,rfd0,rfd1,rfd2,rfd3,rk250,rmuzuv,rpiuva)
!$OMP THREADPRIVATE(rsuvb,rsuvb0,rtauva,rtuv1,rtuv2,ruvlam,rxpl,rxpo)
END MODULE yoe_uvrad