source: LMDZ6/branches/LMDZ_ECRad/libf/phylmd/ecrad/ifsrrtm/yoerrtab.F90 @ 5428

Last change on this file since 5428 was 4728, checked in by idelkadi, 14 months ago

Update of ecrad in the LMDZ_ECRad branch of LMDZ:

  • version 1.6.1 of ecrad
  • files are no longer grouped in the same ecrad directory.
  • the structure of ecrad offline is preserved to facilitate updating in LMDZ
  • cfg.bld modified to take into account the new added subdirectories.
  • the interface routines and those added in ecrad are moved to the phylmd directory
File size: 821 bytes
Line 
1MODULE YOERRTAB
2
3USE PARKIND1  ,ONLY : JPRB
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!    -------------------------------------------------------------------
12
13!    -------------------------------------------------------------------
14
15REAL(KIND=JPRB) , DIMENSION(0:5000) :: TRANS
16REAL(KIND=JPRB) :: BPADE
17
18!     -----------------------------------------------------------------
19!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
20
21!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
22
23!  NAME     TYPE     PURPOSE
24!  ----  :  ----   : ---------------------------------------------------
25! TRANS  :  REAL   : TABULATED REFERENCE FOR LW TRANSMISSION   
26! BPADE  :  REAL   : INVERSE OF PADE APPROXIMATION CONSTANT  (= 1./0.278)     
27!     -----------------------------------------------------------------
28END MODULE YOERRTAB
29
Note: See TracBrowser for help on using the repository browser.