source: LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrtwn.F90 @ 2056

Last change on this file since 2056 was 2056, checked in by Laurent Fairhead, 10 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: 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.