module_CTLBLK.F

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