source: LMDZ6/trunk/libf/phylmd/ecrad/ifsrrtm/yoerrta7.F90 @ 5229

Last change on this file since 5229 was 4773, checked in by idelkadi, 11 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.0 KB
Line 
1MODULE YOERRTA7
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     -----------------------------------------------------------------
12!*    ** *YOERRTA7* - RRTM COEFFICIENTS FOR INTERVAL 7
13!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
14!     ABozzo updated to rrtmg v4.85
15!     -----------------------------------------------------------------
16
17INTEGER(KIND=JPIM), PARAMETER :: NG7  = 12
18
19REAL(KIND=JPRB) :: FRACREFA(NG7,9)
20
21REAL(KIND=JPRB) , DIMENSION(NG7) :: FRACREFB
22REAL(KIND=JPRB) :: KA(9,5,13,NG7) ,ABSA(585,NG7)
23REAL(KIND=JPRB) :: KB(5,13:59,NG7),ABSB(235,NG7)
24REAL(KIND=JPRB) :: SELFREF(10,NG7)
25REAL(KIND=JPRB) :: KA_MCO2(9,19,NG7)
26REAL(KIND=JPRB) :: KB_MCO2(19,NG7)
27REAL(KIND=JPRB) :: FORREF(4,NG7)
28
29EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
30
31!     -----------------------------------------------------------------
32!        * E.C.M.W.F. PHYSICS PACKAGE *
33
34!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
35
36!  NAME     TYPE     PURPOSE
37!  ----   : ----   : ---------------------------------------------------
38! ABSA    : REAL     absorption coefficient of major absorber for M reference tropospheric
39!                    pressures and N reference tropospheric temperatures
40! ABSB    : REAL     absorption coefficient of secondary absorber for M reference stratospheric
41!                    pressures and N reference stratospheric temperatures
42! ABSCO2  : REAL     absorption coefficient for CO2
43! FRACREFA: REAL     distance from r and T reference tabulated points (troposphere)
44! FRACREFB: REAL     distance from r and T reference tabulated points (stratosphere)
45! KA      : REAL     absorption coefficient of major absorber (equiv. to ABSA)   
46! KB      : REAL     absorption coefficient of secondary absorber (equiv. to ABSB)   
47! SELFREF : REAL     self broadening coefficient for water vapour
48! STRRAT  : REAL     weighting factors for the transition between tropospheric
49!                    and stratospheric computations
50!     -----------------------------------------------------------------
51END MODULE YOERRTA7
Note: See TracBrowser for help on using the repository browser.