source: LMDZ6/branches/contrails/libf/phylmd/ecrad/ifsrrtm/yoerrta1.F90 @ 5450

Last change on this file since 5450 was 4773, checked in by idelkadi, 13 months ago
  • Update of Ecrad in LMDZ The same organization of the Ecrad offline version is retained in order to facilitate the updating of Ecrad in LMDZ and the comparison between online and offline results. version 1.6.1 of Ecrad (​https://github.com/lguez/ecrad.git)
  • Implementation of the double call of Ecrad in LMDZ


File size: 1.9 KB
Line 
1MODULE YOERRTA1
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     -----------------------------------------------------------------
12!*    ** *YOERRTA1* - RRTM COEFFICIENTS FOR INTERVAL 1
13!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
14!     ABozzo may 2013 update to last version of rrtmg
15!     band 1:  10-350 cm-1
16!     -----------------------------------------------------------------
17
18INTEGER(KIND=JPIM), PARAMETER :: NG1  = 10
19
20REAL(KIND=JPRB) :: FRACREFA(NG1)  , FRACREFB(NG1)
21REAL(KIND=JPRB) :: KA(5,13,NG1)   , ABSA(65,NG1)
22REAL(KIND=JPRB) :: KB(5,13:59,NG1), ABSB(235,NG1)
23REAL(KIND=JPRB) :: KA_MN2(19,NG1) , KB_MN2(19,NG1)
24REAL(KIND=JPRB) :: SELFREF(10,NG1), FORREF(4,NG1)
25
26EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
27
28!     -----------------------------------------------------------------
29!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
30
31!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
32
33!  NAME     TYPE     PURPOSE
34!  ----   : ----   : ---------------------------------------------------
35! ABSA    : REAL     absorption coefficient of major absorber for M reference tropospheric
36!                    pressures and N reference tropospheric temperatures
37! ABSB    : REAL     absorption coefficient of secondary absorber for M reference stratospheric
38!                    pressures and N reference stratospheric temperatures
39! FRACREFA: REAL     distance from r and T reference tabulated points (troposphere)
40! FRACREFB: REAL     distance from r and T reference tabulated points (stratosphere)
41! FORREF  : REAL     foreign broadening coefficient for water vapour
42! KA      : REAL     absorption coefficient of major absorber   
43! KB      : REAL     absorption coefficient of secondary absorber   
44! SELFREF : REAL     self broadening coefficient for water vapour
45!     -----------------------------------------------------------------
46END MODULE YOERRTA1
Note: See TracBrowser for help on using the repository browser.