source: dynamico_lmdz/aquaplanet/LMDZ5/libf/phymar/yoerrtwn.F90 @ 4031

Last change on this file since 4031 was 3990, checked in by millour, 8 years ago

An updated LMDZ5 (based on LMDZ rev 2786) to play with.
EM
File size: 1.0 KB
Line 
1MODULE YOERRTWN
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!    -------------------------------------------------------------------
11
12INTEGER_M , DIMENSION(16) :: NG
13INTEGER_M , DIMENSION(16) :: NSPA
14INTEGER_M , DIMENSION(16) :: NSPB
15
16REAL_B , DIMENSION(16) :: WAVENUM1
17REAL_B , DIMENSION(16) :: WAVENUM2
18REAL_B , DIMENSION(16) :: DELWAVE
19
20REAL_B , DIMENSION(181,16) :: TOTPLNK
21REAL_B , DIMENSION(181)    :: TOTPLK16
22
23!     -----------------------------------------------------------------
24!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
25
26!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
27
28!  NAME     TYPE     PURPOSE
29!  ----   : ----    : -------
30!  NG     : INTEGER : Number of k-coefficients in spectral intervals
31!  NSPA   : INTEGER :
32!  NSPB   : INTEGER :
33! WAVENUM1: REAL    : Lower wavenumber spectral limit
34! WAVENUM2: REAL    : Higher wavenumber spectral limit
35! DELWAVE : REAL    : Spectral interval width
36! TOTPLNK : REAL    :
37! TOTPLK16: REAL    :
38!     -----------------------------------------------------------------
39END MODULE YOERRTWN
Note: See TracBrowser for help on using the repository browser.