33 |
C and read pickup files with this suffix (max 10 Char.) |
C and read pickup files with this suffix (max 10 Char.) |
34 |
C mdsioLocalDir :: read-write tiled file from/to this directory name |
C mdsioLocalDir :: read-write tiled file from/to this directory name |
35 |
C (+ 4 digits Processor-Rank) instead of current dir. |
C (+ 4 digits Processor-Rank) instead of current dir. |
36 |
|
C adTapeDir :: read-write checkpointing tape files from/to this |
37 |
|
C directory name instead of current dir. Conflicts |
38 |
|
C mdsioLocalDir, so only one of the two can be set. |
39 |
|
C In contrast to mdsioLocalDir, if specified adTapeDir |
40 |
|
C must exist before the model starts. |
41 |
C tRefFile :: File containing reference Potential Temperat. tRef (1.D) |
C tRefFile :: File containing reference Potential Temperat. tRef (1.D) |
42 |
C sRefFile :: File containing reference salinity/spec.humid. sRef (1.D) |
C sRefFile :: File containing reference salinity/spec.humid. sRef (1.D) |
43 |
C rhoRefFile :: File containing reference density profile rhoRef (1.D) |
C rhoRefFile :: File containing reference density profile rhoRef (1.D) |
83 |
C the_run_name :: string identifying the name of the model "run" |
C the_run_name :: string identifying the name of the model "run" |
84 |
COMMON /PARM_C/ |
COMMON /PARM_C/ |
85 |
& buoyancyRelation, eosType, |
& buoyancyRelation, eosType, |
86 |
& pickupSuff, mdsioLocalDir, |
& pickupSuff, mdsioLocalDir, adTapeDir, |
87 |
& tRefFile, sRefFile, rhoRefFile, |
& tRefFile, sRefFile, rhoRefFile, |
88 |
& delRFile, delRcFile, hybSigmFile, |
& delRFile, delRcFile, hybSigmFile, |
89 |
& delXFile, delYFile, horizGridFile, |
& delXFile, delYFile, horizGridFile, |
104 |
CHARACTER*(6) eosType |
CHARACTER*(6) eosType |
105 |
CHARACTER*(10) pickupSuff |
CHARACTER*(10) pickupSuff |
106 |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
107 |
|
CHARACTER*(MAX_LEN_FNAM) adTapeDir |
108 |
CHARACTER*(MAX_LEN_FNAM) tRefFile |
CHARACTER*(MAX_LEN_FNAM) tRefFile |
109 |
CHARACTER*(MAX_LEN_FNAM) sRefFile |
CHARACTER*(MAX_LEN_FNAM) sRefFile |
110 |
CHARACTER*(MAX_LEN_FNAM) rhoRefFile |
CHARACTER*(MAX_LEN_FNAM) rhoRefFile |
968 |
& useDiagnostics, useREGRID, useLayers, useMNC, |
& useDiagnostics, useREGRID, useLayers, useMNC, |
969 |
& useRunClock, useEMBED_FILES, |
& useRunClock, useEMBED_FILES, |
970 |
& useMYPACKAGE |
& useMYPACKAGE |
971 |
|
|
972 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
973 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
974 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |