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 |
---|