source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/rrtm/yoerrtwn.F90 @ 5308

Last change on this file since 5308 was 3331, checked in by acozic, 6 years ago

Add modification for isotopes

  • Property svn:executable set to *
File size: 1.2 KB
Line 
1MODULE YOERRTWN
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!    -------------------------------------------------------------------
10
11INTEGER(KIND=JPIM) , DIMENSION(16) :: NG
12INTEGER(KIND=JPIM) , DIMENSION(16) :: NSPA
13INTEGER(KIND=JPIM) , DIMENSION(16) :: NSPB
14
15REAL(KIND=JPRB) , DIMENSION(16) :: WAVENUM1
16REAL(KIND=JPRB) , DIMENSION(16) :: WAVENUM2
17REAL(KIND=JPRB) , DIMENSION(16) :: DELWAVE
18
19REAL(KIND=JPRB) , DIMENSION(181,16) :: TOTPLNK
20REAL(KIND=JPRB) , DIMENSION(181)    :: TOTPLK16
21
22!     -----------------------------------------------------------------
23!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
24
25!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
26
27!  NAME     TYPE     PURPOSE
28!  ----   : ----    : -------
29!  NG     : INTEGER : Number of k-coefficients in spectral intervals
30!  NSPA   : INTEGER :
31!  NSPB   : INTEGER :
32! WAVENUM1: REAL    : Lower wavenumber spectral limit
33! WAVENUM2: REAL    : Higher wavenumber spectral limit
34! DELWAVE : REAL    : Spectral interval width
35! TOTPLNK : REAL    :
36! TOTPLK16: REAL    :
37!     -----------------------------------------------------------------
38!$OMP THREADPRIVATE(delwave,ng,nspa,nspb,totplk16,totplnk,wavenum1,wavenum2)
39END MODULE YOERRTWN
Note: See TracBrowser for help on using the repository browser.