[1] | 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 |
---|