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