source: LMDZ5/branches/LMDZ6_rc0/libf/phylmd/rrtm/yoelw.F90 @ 2381

Last change on this file since 2381 was 2056, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes r1997:2055 into testing branch

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 3.2 KB
Line 
1MODULE YOELW
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOELW* - COEFFICIENTS OF THE LONGWAVE RADIATION TRANSFER
11!     ------------------------------------------------------------------
12
13INTEGER(KIND=JPIM) :: MXIXT
14INTEGER(KIND=JPIM) :: NSIL
15INTEGER(KIND=JPIM) :: NIPD
16INTEGER(KIND=JPIM) :: NIPD2
17INTEGER(KIND=JPIM) :: NTR
18INTEGER(KIND=JPIM) :: NTRA
19INTEGER(KIND=JPIM) :: NUA
20INTEGER(KIND=JPIM) :: NG1
21INTEGER(KIND=JPIM) :: NG1P1
22REAL(KIND=JPRB) :: ALWT(8,3)
23REAL(KIND=JPRB) :: BLWT(8,3)
24REAL(KIND=JPRB) :: PDGA(11,16,3)
25REAL(KIND=JPRB) :: PDGB(11,16,3)
26REAL(KIND=JPRB) :: RPTYPE(4)
27REAL(KIND=JPRB) :: RETYPE(4)
28REAL(KIND=JPRB) :: RNTNU(4)
29REAL(KIND=JPRB) :: RO1H
30REAL(KIND=JPRB) :: RO2H
31REAL(KIND=JPRB) :: RO3T(4)
32REAL(KIND=JPRB) :: RPIALF0
33REAL(KIND=JPRB) :: RT1(2)
34REAL(KIND=JPRB) :: TINTP(11)
35REAL(KIND=JPRB) :: TREF
36REAL(KIND=JPRB) :: TSTAND
37REAL(KIND=JPRB) :: TSTP
38REAL(KIND=JPRB) :: WG1(2)
39REAL(KIND=JPRB) :: XP(6,6)
40REAL(KIND=JPRB) :: RVGCO2
41REAL(KIND=JPRB) :: RVGH2O
42REAL(KIND=JPRB) :: RVGO3
43
44!        * E.C.M.W.F. PHYSICS PACKAGE *
45
46!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
47
48!  NAME     TYPE     PURPOSE
49!  ----  :  ----   : ---------------------------------------------------
50!  MXIXT :  INTEGER  MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES
51!  NSIL  :  INTEGER  NUMBER OF SPECTRAL INTERVALS
52!  NIPD  :  INTEGER  NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS
53!  NIPD2 :  INTEGER  NIPD*2
54!  NTR   :  INTEGER  NUMBER OF REFERENCE TEMPERATURES
55!  NTRA  :  INTEGER  NUMBER OF TRANSMISSION FUNCTIONS
56!  NUA   :  INTEGER  NUMBER OF ABSORBER AMOUNTS
57!  NG1   :  INTEGER  ORDER OF THE GAUSSIAN QUADRATURE
58!  NG1P1 :  INTEGER  NG1+1
59!  ALWT  :  REAL     A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
60!  BLWT  :  REAL     B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
61!  RNTNU :  REAL     ABSORPTION COEFFICIENT E-TYPE
62!  PDGA  :  REAL     PADE APPROXIMANTS - NUMERATOR
63!  PDGB  :  REAL     PADE APPROXIMANTS - DENOMINATOR
64!  RPTYPE:  REAL     P-TYPE COEFFICIENTS
65!  RETYPE:  REAL     E-TYPE COEFFICIENTS
66!  RO1H  :  REAL     K/DELTA 1ST OZONE SUB-INTERVAL
67!  RO2H  :  REAL     K/DELTA 2ND OZONE SUB-INTERVAL
68!  RO3T  :  REAL     TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE
69!  RPIALF0: REAL     PI*ALFA0/DELTA OZONE SUB-INTERVALS
70!  RT1   :  REAL     ROOTS FOR GAUSSIAN QUADRATURE
71!  TINTP :  REAL     TEMPERATURE INTERVALS FOR TRANSMISSIVITIES
72!  TREF  :  REAL     REFERENCE TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL
73!  TSTAND:  REAL     REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
74!  TSTP  :  REAL     TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES
75!  WG1   :  REAL     WEIGHTS FOR GAUSSIAN QUADRATURE
76!  XP    :  REAL     POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
77!  RVGCO2:  REAL     RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH
78!  RVGH2O:  REAL     RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH
79!  RVGO3 :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
80!     ------------------------------------------------------------------
81
82
83!$OMP THREADPRIVATE(alwt,blwt,mxixt,ng1,ng1p1,nipd,nipd2,nsil,ntr,ntra,nua)
84!$OMP THREADPRIVATE(pdga,pdgb,retype,rntnu,ro1h,ro2h,ro3t,rpialf0,rptype,rt1)
85!$OMP THREADPRIVATE(rvgco2,rvgh2o,rvgo3,tintp,tref,tstand,tstp,wg1,xp)
86END MODULE YOELW
Note: See TracBrowser for help on using the repository browser.