source: CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/phymar/yoerrtwn.F90 @ 5491

Last change on this file since 5491 was 5477, checked in by aclsce, 4 years ago
  • Created CONFIG_DEVT directory
  • First import of LMDZOR_V6.2_work_ENSEMBLES working configuration
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.