source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/yoerrtftr.F90 @ 4249

Last change on this file since 4249 was 3331, checked in by acozic, 7 years ago

Add modification for isotopes

  • Property svn:executable set to *
File size: 1000 bytes
Line 
1MODULE YOERRTFTR
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5USE PARRRTM
6
7IMPLICIT NONE
8
9SAVE
10
11!    -------------------------------------------------------------------
12
13!    -------------------------------------------------------------------
14
15INTEGER(KIND=JPIM) :: NGC(JPBAND)
16INTEGER(KIND=JPIM) :: NGS(JPBAND)
17INTEGER(KIND=JPIM) :: NGN(JPGPT)
18INTEGER(KIND=JPIM) :: NGB(JPGPT)
19
20INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND)
21REAL(KIND=JPRB) ::    WT(JPG)
22
23!     -----------------------------------------------------------------
24!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
25
26!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
27
28!  NAME     TYPE     PURPOSE
29!  ----  :  ----   : ---------------------------------------------------
30!  NGC   : INTEGER :
31!  NGS   : INTEGER :
32!  NGN   : INTEGER :
33!  NGB   : INTEGER :
34!  NGM   : INTEGER :
35!  WT    : REAL    :
36!    -------------------------------------------------------------------
37
38!$OMP THREADPRIVATE(ngb,ngc,ngm,ngn,ngs,wt)
39
40END MODULE YOERRTFTR
41
Note: See TracBrowser for help on using the repository browser.