source: LMDZ6/trunk/libf/phylmd/ecrad/ifsrrtm/yoerrta8.F90 @ 5407

Last change on this file since 5407 was 4773, checked in by idelkadi, 12 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: 2.9 KB
Line 
1MODULE YOERRTA8
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     -----------------------------------------------------------------
12!*    ** *YOERRTA8* - RRTM COEFFICIENTS FOR INTERVAL 8
13!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
14!     ABozzo 201306 updated to rrtmg v4.85
15!     -----------------------------------------------------------------
16
17INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
18
19REAL(KIND=JPRB) , DIMENSION(NG8) :: FRACREFA
20REAL(KIND=JPRB) , DIMENSION(NG8) :: FRACREFB
21REAL(KIND=JPRB) , DIMENSION(NG8) :: CFC12
22REAL(KIND=JPRB) , DIMENSION(NG8) :: CFC22ADJ
23
24REAL(KIND=JPRB) :: KA(5,13,NG8)    ,ABSA(65,NG8)
25REAL(KIND=JPRB) :: KB(5,13:59,NG8) ,ABSB(235,NG8)
26REAL(KIND=JPRB) :: KA_MCO2(19,NG8)
27REAL(KIND=JPRB) :: KA_MN2O(19,NG8)
28REAL(KIND=JPRB) :: KA_MO3(19,NG8)
29REAL(KIND=JPRB) :: KB_MCO2(19,NG8)
30REAL(KIND=JPRB) :: KB_MN2O(19,NG8)
31REAL(KIND=JPRB) :: SELFREF(10,NG8)
32REAL(KIND=JPRB) :: FORREF(4,NG8)
33
34
35EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
36
37!     -----------------------------------------------------------------
38!        * E.C.M.W.F. PHYSICS PACKAGE *
39
40!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
41
42!  NAME     TYPE     PURPOSE
43!  ----   : ----   : ---------------------------------------------------
44! ABSA    : REAL     absorption coefficient of major absorber for M reference tropospheric
45!                    pressures and N reference tropospheric temperatures
46! ABSB    : REAL     absorption coefficient of secondary absorber for M reference stratospheric
47!                    pressures and N reference stratospheric temperatures
48! ABSCO2A : REAL     absorption coefficient for CO2 for M reference tropospheric
49!                    pressures and N reference tropospheric temperatures
50! ABSCO2B : REAL     absorption coefficient for CO2 for M reference stratospheric
51!                    pressures and N reference stratospheric temperatures     
52! ABSN2OA : REAL     absorption coefficient for N2O for M reference tropospheric
53!                    pressures and N reference tropospheric temperatures     
54! ABSN2OB : REAL     absorption coefficient for N2O for M reference stratospheric
55!                    pressures and N reference stratospheric temperatures
56! CFC12   : REAL     absorption coefficient for CFC-12
57! CFC22ADJ: REAL     absorption coefficient for CFC-22 (adjusted)
58! FRACREFA: REAL     distance from r and T reference tabulated points (troposphere)
59! FRACREFB: REAL     distance from r and T reference tabulated points (stratosphere)
60! H2OREF  : REAL     reference profile for H2O
61! KA      : REAL     absorption coefficient of major absorber (equiv. to ABSA)   
62! KB      : REAL     absorption coefficient of secondary absorber (equiv. to ABSB)   
63! N2OREF  : REAL     reference profile for N2O
64! O3REF   : REAL     reference profile for O3
65! SELFREF : REAL     self broadening coefficient for water vapour
66!     -----------------------------------------------------------------
67END MODULE YOERRTA8
Note: See TracBrowser for help on using the repository browser.