source: LMDZ6/trunk/libf/phylmd/ecrad/ifsrrtm/yoesrta25.F90 @ 5440

Last change on this file since 5440 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: 1.8 KB
RevLine 
[4773]1MODULE YOESRTA25
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB,JPRD
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     -----------------------------------------------------------------
12!*    ** *YOESRTA25* - SRTM COEFFICIENTS FOR INTERVAL 25
13!     BAND 25: 16000-22650 cm-1 (low - H2O; high - nothing)
14!     -----------------------------------------------------------------
15
16INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG25 = 16
17
18REAL(KIND=JPRB) :: KA(5,13,JPG)
19REAL(KIND=JPRD) :: KA_D(5,13,JPG)
20REAL(KIND=JPRB) :: SFLUXREF(JPG)
21REAL(KIND=JPRB) :: RAYL(JPG), ABSO3A(JPG), ABSO3B(JPG)
22INTEGER(KIND=JPIM) :: LAYREFFR
23
24REAL(KIND=JPRB) :: KAC(5,13,NG25) ,ABSA(65,NG25)
25REAL(KIND=JPRB) :: SFLUXREFC(NG25)
26REAL(KIND=JPRB) :: RAYLC(NG25), ABSO3AC(NG25), ABSO3BC(NG25)
27
28!EQUIVALENCE (KA(1,1,1),ABSA(1,1))
29EQUIVALENCE (KAC(1,1,1),ABSA(1,1))
30
31!     -----------------------------------------------------------------
32!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
33
34!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
35!     M. J. IACONO          AER             12/09/03
36
37!  NAME     TYPE     PURPOSE
38!  ----   : ----   : ---------------------------------------------------
39! KA      : REAL     absorption coefficient of major absorber
40! SFLUXREF: REAL     Incident solar radiation in the spectral interval
41! RAYL    : REAL     Rayleigh scattering parameter
42! ABSO3A  : REAL     O3 absorption coefficient in first part of band
43! ABSO3B  : REAL     O3 absorption coefficient in second part of band
44! LAYREFFR: INTEGER  reference level for the transition
45! KAC     : REAL     Reduced g-point array for KA
46!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
47! RAYLC   : REAL     Reduced g-point array for RAYL
48! ABSO3AC : REAL     Reduced g-point array for ABSO3A
49! ABSO3BC : REAL     Reduced g-point array for ABSO3B
50!     -----------------------------------------------------------------
51END MODULE YOESRTA25
52
Note: See TracBrowser for help on using the repository browser.