yomradf.F90

Go to the documentation of this file.

MODULE yomradf

USE parkind1  ,ONLY : jpim     ,jprb

IMPLICIT NONE

SAVE

! EMTD    - longwave emissivity
! TRSW    - shortwave absorptivity
! EMTC    - clear-sky longwave emissivity
! TRSC    - clear-sky shortwave absorptivity

! SRSWD   - downward SW radiation at the surface 
! SRLWD   - downward LW radiation at the surface
! SRSWDCS - clear-sky downward SW radiation at the surface
! SRLWDCS - clear-sky downward LW radiation at the surface 
! SRSWDV  - downward SW visible radiation at the surface
! SRSWDUV - downward SW ultraviolet/visible radiation at the surface
! SRSWPAR - downward SW PAR radiation at the surface
! SRSWUVB - downward UV-B radiation at the surface
! SRSWPARC- downward clear-sky SW PAR radiation at the surface
! SRSWTINC- TOA incident solar radiation 

REAL(KIND=JPRB),ALLOCATABLE :: emtd(:,:,:)
REAL(KIND=JPRB),ALLOCATABLE :: trsw(:,:,:)
REAL(KIND=JPRB),ALLOCATABLE :: emtc(:,:,:)
REAL(KIND=JPRB),ALLOCATABLE :: trsc(:,:,:)
REAL(KIND=JPRB),ALLOCATABLE :: emtu(:,:,:)

REAL(KIND=JPRB),ALLOCATABLE :: srswd(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srlwd(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srswdcs(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srlwdcs(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srswdv(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srswduv(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: edro(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srswpar(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srswuvb(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srswparc(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: srswtinc(:,:)
REAL(KIND=JPRB),ALLOCATABLE :: rmoon(:,:)


!$OMP THREADPRIVATE(edro,emtc,emtd,emtu,rmoon,srlwd,srlwdcs,srswd,srswdcs,srswduv)
!$OMP THREADPRIVATE(srswdv,srswpar,srswparc,srswtinc,srswuvb,trsc,trsw)
END MODULE yomradf