source: lmdz_wrf/trunk/WRFV3/dyn_nmm/module_CTLBLK.F @ 409

Last change on this file since 409 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 1.2 KB
Line 
1!
2      MODULE MODULE_CTLBLK
3!----------------------------------------------------------------------
4!----------------------------------------------------------------------
5!
6!***  FUNDAMENTAL DOMAIN VARIABLES
7!
8      INTEGER :: IM,JM,LM
9      INTEGER :: NROOT
10!----------------------------------------------------------------------
11!
12!***  SET SOME CONSTANTS
13!
14      INTEGER :: LIST=6            ! STANDARD OUT UNIT NUMBER
15      INTEGER,PARAMETER :: LSM=39  ! NUMBER OF OUTPUT PRESSURE LEVELS
16!----------------------------------------------------------------------
17!
18!***  SINGLE GLOBAL OR MULTIPLE LOCAL RESTART FILES
19!
20      LOGICAL :: SINGLRST
21!----------------------------------------------------------------------
22!
23!***  VARIOUS CONTROL VARIABLES
24!
25      LOGICAL :: RUN,FIRST,RESTRT,NEST
26!
27!JW   REAL :: DT,TLM0D,TPH0D,TSPH
28      REAL :: TLM0D,TPH0D,TSPH
29!
30      INTEGER :: IHRST,NFCST,NUNIT_NBC,IOUT                            &
31                ,NTSTM,NSTART,NTDDMP,NBOCO,NSHDE
32!               ,NTSD,NTSTM,NSTART,NTDDMP,NPREC,NBOCO,NSHDE
33!
34      INTEGER,DIMENSION(3) :: IDAT
35!
36      INTEGER,DIMENSION(99) :: ISHDE
37!
38      REAL,DIMENSION(LSM) :: SPL
39!----------------------------------------------------------------------
40      END MODULE MODULE_CTLBLK
Note: See TracBrowser for help on using the repository browser.