source: LMDZ6/trunk/libf/phylmd/ecrad/ifsrrtm/yoesrta18.F90 @ 5423

Last change on this file since 5423 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: 2.3 KB
Line 
1MODULE YOESRTA18
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB,JPRD
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     -----------------------------------------------------------------
12!*    ** *YOESRTA18* - SRTM COEFFICIENTS FOR INTERVAL 16
13!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
14!     -----------------------------------------------------------------
15
16INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG18 = 16, NGS17=32
17
18REAL(KIND=JPRB) :: KA(9,5,13,JPG)
19REAL(KIND=JPRB) :: KB(5,13:59,JPG)
20REAL(KIND=JPRD) :: KA_D(9,5,13,JPG)
21REAL(KIND=JPRD) :: KB_D(5,13:59,JPG)
22REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
23REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
24REAL(KIND=JPRB) :: RAYL            ,STRRAT
25
26INTEGER(KIND=JPIM) :: LAYREFFR
27
28REAL(KIND=JPRB) :: KAC(9,5,13,NG18) ,ABSA(585,NG18)
29REAL(KIND=JPRB) :: KBC(5,13:59,NG18),ABSB(235,NG18)
30REAL(KIND=JPRB) :: SELFREFC(10,NG18),FORREFC(3,NG18)
31REAL(KIND=JPRB) :: SFLUXREFC(NG18,9)
32
33!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
34EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
35
36!     -----------------------------------------------------------------
37!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
38
39!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
40!     M. J. IACONO          AER             12/09/03
41
42!  NAME     TYPE     PURPOSE
43!  ----   : ----   : ---------------------------------------------------
44! KA      : REAL     absorption coefficient of major absorber
45! KB      : REAL     absorption coefficient of secondary absorber
46! SELFREF : REAL     self brodening coefficient for water vapour
47! FORREF  : REAL     foreign broadening coefficient for water vapour
48! SFLUXREF: REAL     Incident solar radiation in the spectral interval
49! RAYL    : REAL     Rayleigh scattering parameter
50! STRRAT  : REAL     weighting factor for the transition between tropospheric
51!                    and stratospheric computations
52! LAYREFFR: INTEGER  reference level for the transition
53! KAC     : REAL     Reduced g-point array for KA
54! KBC     : REAL     Reduced g-point array for KB
55! SELFREFC: REAL     Reduced g-point array for SELFREF
56! FORREFC : REAL     Reduced g-point array for FORREF
57!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
58!     -----------------------------------------------------------------
59END MODULE YOESRTA18
60
Note: See TracBrowser for help on using the repository browser.