source: LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrtrwt.F90 @ 5431

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

Merged trunk changes r1997:2055 into testing branch

  • 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: 969 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!    -------------------------------------------------------------------
34!$OMP THREADPRIVATE(frefa,frefadf,frefb,frefbdf,rwgt)
35END MODULE YOERRTRWT
Note: See TracBrowser for help on using the repository browser.