source: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifsrrtm/yoesrta27.F90 @ 5409

Last change on this file since 5409 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.9 KB
Line 
1MODULE YOESRTA27
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB,JPRD
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!     -----------------------------------------------------------------
12!*    ** *YOESRTA27* - SRTM COEFFICIENTS FOR INTERVAL 27
13!     BAND 27: 29000-38000 cm-1 (low - O3; high - O3)
14!     -----------------------------------------------------------------
15
16INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG27 = 16
17
18REAL(KIND=JPRB) :: KA(5,13,JPG)   
19REAL(KIND=JPRB) :: KB(5,13:59,JPG)
20REAL(KIND=JPRD) :: KA_D(5,13,JPG)   
21REAL(KIND=JPRD) :: KB_D(5,13:59,JPG)
22REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,RAYL(JPG)
23REAL(KIND=JPRB) :: SCALEKUR
24INTEGER(KIND=JPIM) :: LAYREFFR
25
26REAL(KIND=JPRB) :: KAC(5,13,NG27)   ,ABSA(65,NG27)
27REAL(KIND=JPRB) :: KBC(5,13:59,NG27),ABSB(235,NG27)
28REAL(KIND=JPRB) :: SFLUXREFC(NG27)  ,RAYLC(NG27)
29
30!EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
31EQUIVALENCE (KAC(1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
32
33!     -----------------------------------------------------------------
34!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
35
36!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
37!     M. J. IACONO          AER             12/09/03
38
39!  NAME     TYPE     PURPOSE
40!  ----   : ----   : ---------------------------------------------------
41! FRACREFA: REAL
42! KA      : REAL     absorption coefficient of major absorber
43! KB      : REAL     absorption coefficient of secondary absorber
44! SFLUXREF: REAL     Incident solar radiation in the spectral interval
45! RAYL    : REAL     Rayleigh scattering parameter
46! SCALEKUR: REAL     weighting factor to account for Kurucz's correction to solar spectrum
47! LAYREFFR: INTEGER  reference level for the transition
48! KAC     : REAL     Reduced g-point array for KA
49! KBC     : REAL     Reduced g-point array for KB
50!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
51! RAYLC   : REAL     Reduced g-point array for RAYL
52!     -----------------------------------------------------------------
53END MODULE YOESRTA27
54
Note: See TracBrowser for help on using the repository browser.