source: LMDZ5/trunk/libf/phylmd/rrtm/yoerrtrwt.F90 @ 2005

Last change on this file since 2005 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM

Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 915 bytes
Line 
1MODULE YOERRTRWT
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5USE PARRRTM
6
7IMPLICIT NONE
8
9SAVE
10
11!    -------------------------------------------------------------------
12
13!    -------------------------------------------------------------------
14
15REAL(KIND=JPRB) :: FREFA  (JPGPT,13)
16REAL(KIND=JPRB) :: FREFB  (JPGPT,6)
17REAL(KIND=JPRB) :: FREFADF(JPGPT,13)
18REAL(KIND=JPRB) :: FREFBDF(JPGPT,6)
19REAL(KIND=JPRB) :: RWGT   (JPG*JPBAND)
20
21!     -----------------------------------------------------------------
22!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
23
24!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
25
26!  NAME     TYPE     PURPOSE
27!  ----  :  ----   : ---------------------------------------------------
28! FREFA  :  REAL   :
29! FREFB  :  REAL   :
30! FREFADF:  REAL   :
31! FREFBDF:  REAL   :
32! RWT    :  REAL   :
33!    -------------------------------------------------------------------
34END MODULE YOERRTRWT
Note: See TracBrowser for help on using the repository browser.