source: LMDZ5/trunk/libf/phylmd/rrtm/yoesrtcop.F90 @ 5456

MODULE YOESRTCOP

USE PARKIND1  ,ONLY : JPRB

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*    ** *YOESRTCOP* - CLOUD OPTICAL PROPERTIES FOR SRTM 
!     ------------------------------------------------------------------

!-- CLOUD OPTICAL PROPERTIES

!-- coefficients and parameters related to SRTM_SW 14 sp.int.

REAL(KIND=JPRB) :: RSYFWA(14)
REAL(KIND=JPRB) :: RSYFWB(14)
REAL(KIND=JPRB) :: RSYFWC(14)
REAL(KIND=JPRB) :: RSYFWD(14)
REAL(KIND=JPRB) :: RSYFWE(14)
REAL(KIND=JPRB) :: RSYFWF(14)

REAL(KIND=JPRB) :: RSECIA(14)
REAL(KIND=JPRB) :: RSECIB(14)
REAL(KIND=JPRB) :: RSECIC(14)
REAL(KIND=JPRB) :: RSECID(14)
REAL(KIND=JPRB) :: RSECIE(14)
REAL(KIND=JPRB) :: RSECIF(14)

REAL(KIND=JPRB) :: RSASWA(14)
REAL(KIND=JPRB) :: RSASWB(14)
REAL(KIND=JPRB) :: RSASWC(14)
REAL(KIND=JPRB) :: RSASWD(14)
REAL(KIND=JPRB) :: RSASWE(14)
REAL(KIND=JPRB) :: RSASWF(14)

REAL(KIND=JPRB) :: RSFUA0(14)
REAL(KIND=JPRB) :: RSFUA1(14)
REAL(KIND=JPRB) :: RSFUB0(14)
REAL(KIND=JPRB) :: RSFUB1(14)
REAL(KIND=JPRB) :: RSFUB2(14)
REAL(KIND=JPRB) :: RSFUB3(14)
REAL(KIND=JPRB) :: RSFUC0(14)
REAL(KIND=JPRB) :: RSFUC1(14)
REAL(KIND=JPRB) :: RSFUC2(14)
REAL(KIND=JPRB) :: RSFUC3(14)

REAL(KIND=JPRB) :: RSFLA0(14)
REAL(KIND=JPRB) :: RSFLA1(14)
REAL(KIND=JPRB) :: RSFLB0(14)
REAL(KIND=JPRB) :: RSFLB1(14)
REAL(KIND=JPRB) :: RSFLB2(14)
REAL(KIND=JPRB) :: RSFLB3(14)
REAL(KIND=JPRB) :: RSFLC0(14)
REAL(KIND=JPRB) :: RSFLC1(14)
REAL(KIND=JPRB) :: RSFLC2(14)
REAL(KIND=JPRB) :: RSFLC3(14)
REAL(KIND=JPRB) :: RSFLD0(14)
REAL(KIND=JPRB) :: RSFLD1(14)
REAL(KIND=JPRB) :: RSFLD2(14)
REAL(KIND=JPRB) :: RSFLD3(14)

REAL(KIND=JPRB) :: RSSSIE(14)
REAL(KIND=JPRB) :: RSSSIF(14)
REAL(KIND=JPRB) :: RSSSIH(14)
REAL(KIND=JPRB) :: RSSSIK(14)
REAL(KIND=JPRB) :: RSSSIA(14)
REAL(KIND=JPRB) :: RSSSIG(14)

!        * E.C.M.W.F. PHYSICS PACKAGE *

!     J.-J. MORCRETTE       E.C.M.W.F.      03-03-07

!  NAME     TYPE     PURPOSE
!  ----  :  ----   : ---------------------------------------------------
!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES

! RSYFWA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
! RSYFWB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
! RSYFWC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
! RSYFWD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
! RSYFWE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
! RSYFWF :  REAL   : ASSYMETRY FACTOR

!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES

! RSASWA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
! RSASWB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
! RSASWC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
! RSASWD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
! RSASWE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
! RSASWF :  REAL   : ASSYMETRY FACTOR

!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)

! RSECIA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
! RSECIB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
! RSECIC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
! RSECID :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
! RSECIE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
! RSECIF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
! RSECIG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
! RSECIH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA

!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM SUN-SHINE (1995)

! RSSSIE :  REAL   : E IN SINGLE SCATTERING ALBEDO FORMULA
! RSSSIF :  REAL   : F IN SINGLE SCATTERING ALBEDO FORMULA
! RSSSIH :  REAL   : H IN ASSYMETRY FACTOR FORMULA
! RSSSIK :  REAL   : K IN ASSYMETRY FACTOR FORMULA
! RSSSIA :  REAL   : ALPHA IN SSA CORRECTION FACTOR FORMULA
! RSSSIG :  REAL   : GAMMA IN ASSYMETRY CORRECTION FACTOR FORMULA

!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU-LIOU (1993)

! RSFLA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
! RSFLB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
! RSFLC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
! RSFLD  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR

!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU (1996) & FU ET AL. (1998)

! RSFUA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
! RSFUB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
! RSFUC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR

!     -----------------------------------------------------------------
!$OMP THREADPRIVATE(rsaswa,rsaswb,rsaswc,rsaswd,rsaswe,rsaswf,rsecia,rsecib)
!$OMP THREADPRIVATE(rsecic,rsecid,rsecie,rsecif,rsfla0,rsfla1,rsflb0,rsflb1)
!$OMP THREADPRIVATE(rsflb2,rsflb3,rsflc0,rsflc1,rsflc2,rsflc3,rsfld0,rsfld1)
!$OMP THREADPRIVATE(rsfld2,rsfld3,rsfua0,rsfua1,rsfub0,rsfub1,rsfub2,rsfub3)
!$OMP THREADPRIVATE(rsfuc0,rsfuc1,rsfuc2,rsfuc3,rsssia,rsssie,rsssif,rsssig)
!$OMP THREADPRIVATE(rsssih,rsssik,rsyfwa,rsyfwb,rsyfwc,rsyfwd,rsyfwe,rsyfwf)
END MODULE YOESRTCOP