yoesrtcop.F90

Go to the documentation of this file.

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