yoesrtop.F90

Go to the documentation of this file.

MODULE yoesrtop

USE parkind1  ,ONLY : jprb

IMPLICIT NONE

SAVE

!     -----------------------------------------------------------------
!*    ** *YOESRTOP* - SRTM CLOUD OPTICAL PROPERTIES
!     OVER BANDS 16 to 29:  2600-50000, then 800-2600 cm-1
!     -----------------------------------------------------------------

REAL(KIND=JPRB) :: extliq1(58,16:29), ssaliq1(58,16:29), asyliq1(58,16:29)
REAL(KIND=JPRB) :: extice2(43,16:29), ssaice2(43,16:29), asyice2(43,16:29)
REAL(KIND=JPRB) :: extice3(46,16:29), ssaice3(46,16:29), asyice3(46,16:29)
REAL(KIND=JPRB) :: fdlice3(46,16:29), fdelta(16:29)
REAL(KIND=JPRB) :: abscld1

REAL(KIND=JPRB) :: abscoice(16:29), extcoice(16:29), gice(16:29), ssacoice(16:29), forwice(16:29)
REAL(KIND=JPRB) :: abscoliq(16:29), extcoliq(16:29), gliq(16:29), ssacoliq(16:29), forwliq(16:29)

!     -----------------------------------------------------------------
!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **

!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
!     J. DELAMERE/M. IACONO AER             08/01/2005

!  NAME     TYPE     PURPOSE
!  ----   : ----   : ---------------------------------------------------
! xxxLIQ1 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM
!                    HU & STAMNES, 1993, J. CLIM., 6, 728-742  
! xxxICE2 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM STREAMER V3.0,
!                    KEY, J., STREAMER USER'S GUIDE, COOPERATIVE INSTITUDE 
!                    FOR METEOROLOGICAL STUDIES, 2001, 95 PP.
! xxxICE3 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM
!                    FU, 1996, J. CLIM., 9, 
!     -----------------------------------------------------------------
!$OMP THREADPRIVATE(abscld1,abscoice,abscoliq,asyice2,asyice3,asyliq1,extcoice)
!$OMP THREADPRIVATE(extcoliq,extice2,extice3,extliq1,fdelta,fdlice3,forwice,forwliq)
!$OMP THREADPRIVATE(gice,gliq,ssacoice,ssacoliq,ssaice2,ssaice3,ssaliq1)
END MODULE yoesrtop