source: LMDZ6/trunk/libf/phylmd/ecrad/ifsrrtm/yoesrta24.F90 @ 5408

Last change on this file since 5408 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.8 KB
RevLine 
[4773]1MODULE YOESRTA24
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB,JPRD
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     -----------------------------------------------------------------
12!*    ** *YOESRTA24* - SRTM COEFFICIENTS FOR INTERVAL 24
13!     BAND 24: 12850-16000 cm-1 (low - H2O,O2; high - O2)
14!     -----------------------------------------------------------------
15
16INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG24 = 16
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) :: ABSO3A(JPG), ABSO3B(JPG), RAYLA(JPG,9), RAYLB(JPG)
25REAL(KIND=JPRB) :: STRRAT
26INTEGER(KIND=JPIM) :: LAYREFFR
27
28REAL(KIND=JPRB) :: KAC(9,5,13,NG24) ,ABSA(585,NG24)
29REAL(KIND=JPRB) :: KBC(5,13:59,NG24),ABSB(235,NG24)
30REAL(KIND=JPRB) :: SELFREFC(10,NG24),FORREFC(3,NG24)
31REAL(KIND=JPRB) :: SFLUXREFC(NG24,9)
32REAL(KIND=JPRB) :: ABSO3AC(NG24), ABSO3BC(NG24), RAYLAC(NG24,9), RAYLBC(NG24)
33
34!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
35EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
36
37!     -----------------------------------------------------------------
38!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
39
40!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
41!     M. J. IACONO          AER             12/09/03
42
43!  NAME     TYPE     PURPOSE
44!  ----   : ----   : ---------------------------------------------------
45! KA      : REAL     absorption coefficient of major absorber
46! KB      : REAL     absorption coefficient of secondary absorber
47! SELFREF : REAL     self brodening coefficient for water vapour
48! FORREF  : REAL     foreign broadening coefficient for water vapour
49! SFLUXREF: REAL     Incident solar radiation in the spectral interval
50! ABSO3A  : REAL     O3 absorption coefficient in first part of band
51! ABSO3B  : REAL     O3 absorption coefficient in second part of band
52! RAYLA   : REAL     Rayleigh scattering parameter in first part of band
53! RAYLB   : REAL     Rayleigh scattering parameter in second part of band   
54! STRRAT  : REAL     weighting factor for the transition between tropospheric
55!                    and stratospheric computations
56! LAYREFFR: INTEGER  reference level for the transition
57! KAC     : REAL     Reduced g-point array for KA
58! KBC     : REAL     Reduced g-point array for KB
59! SELFREFC: REAL     Reduced g-point array for SELFREF
60! FORREFC : REAL     Reduced g-point array for FORREF
61!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
62! ABSO3AC : REAL     Reduced g-point array for ABSO3A
63! ABSO3BC : REAL     Reduced g-point array for ABSO3B
64! RAYLAC  : REAL     Reduced g-point array for RAYLA
65! RAYLBC  : REAL     Reduced g-point array for RAYLB
66!     -----------------------------------------------------------------
67END MODULE YOESRTA24
68
Note: See TracBrowser for help on using the repository browser.