source: LMDZ6/trunk/libf/phylmd/ecrad/ifsrrtm/yoesrta23.F90 @ 4791

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