137 |
CHARACTER*(MAX_LEN_FNAM) lambdaThetaFile |
CHARACTER*(MAX_LEN_FNAM) lambdaThetaFile |
138 |
CHARACTER*(MAX_LEN_FNAM) lambdaSaltFile |
CHARACTER*(MAX_LEN_FNAM) lambdaSaltFile |
139 |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
140 |
CHARACTER*(MAX_LEN_FNAM) the_run_name |
CHARACTER*(MAX_LEN_PREC/2) the_run_name |
141 |
CHARACTER*(6) eosType |
CHARACTER*(6) eosType |
142 |
CHARACTER*(10) pickupSuff |
CHARACTER*(10) pickupSuff |
143 |
|
|
257 |
C rigidLid :: Set to true to use rigid lid |
C rigidLid :: Set to true to use rigid lid |
258 |
C implicitFreeSurface :: Set to true to use implicit free surface |
C implicitFreeSurface :: Set to true to use implicit free surface |
259 |
C exactConserv :: Set to true to conserve exactly the total Volume |
C exactConserv :: Set to true to conserve exactly the total Volume |
260 |
|
C linFSConserveTr :: Set to true to correct source/sink of tracer |
261 |
|
C at the surface due to Linear Free Surface |
262 |
C uniformLin_PhiSurf :: Set to true to use a uniform Bo_surf in the |
C uniformLin_PhiSurf :: Set to true to use a uniform Bo_surf in the |
263 |
C linear relation Phi_surf = Bo_surf*eta |
C linear relation Phi_surf = Bo_surf*eta |
264 |
C use3Dsolver :: set to true to use 3-D pressure solver |
C use3Dsolver :: set to true to use 3-D pressure solver |
289 |
C momDissip_In_AB :: if False, put Dissipation tendency contribution |
C momDissip_In_AB :: if False, put Dissipation tendency contribution |
290 |
C out off Adams-Bashforth time stepping. |
C out off Adams-Bashforth time stepping. |
291 |
C doAB_onGtGs :: if the Adams-Bashforth time stepping is used, always |
C doAB_onGtGs :: if the Adams-Bashforth time stepping is used, always |
292 |
C apply AB on tracer tendencies (rather than on Tracer) |
C apply AB on tracer tendencies (rather than on Tracer) |
293 |
C startFromPickupAB2 :: with AB-3 code, start from an AB-2 pickup |
C startFromPickupAB2 :: with AB-3 code, start from an AB-2 pickup |
294 |
|
C usePickupBeforeC54 :: start from old-pickup files, generated with code from |
295 |
|
C before checkpoint-54a, Jul 06, 2004. |
296 |
C doThetaClimRelax :: Set true if relaxation to temperature |
C doThetaClimRelax :: Set true if relaxation to temperature |
297 |
C climatology is required. |
C climatology is required. |
298 |
C doSaltClimRelax :: Set true if relaxation to salinity |
C doSaltClimRelax :: Set true if relaxation to salinity |
342 |
& useRealFreshWaterFlux, |
& useRealFreshWaterFlux, |
343 |
& useFullLeith, useStrainTensionVisc, |
& useFullLeith, useStrainTensionVisc, |
344 |
& useAreaViscLength, |
& useAreaViscLength, |
345 |
& rigidLid, implicitFreeSurface, exactConserv, uniformLin_PhiSurf, |
& rigidLid, implicitFreeSurface, exactConserv, linFSConserveTr, |
346 |
|
& uniformLin_PhiSurf, |
347 |
& use3Dsolver, implicitIntGravWave, staggerTimeStep, |
& use3Dsolver, implicitIntGravWave, staggerTimeStep, |
348 |
& momStepping, tempStepping, saltStepping, |
& momStepping, tempStepping, saltStepping, |
349 |
& metricTerms, useNHMTerms, |
& metricTerms, useNHMTerms, |
362 |
& usingPCoords, usingZCoords, useDynP_inEos_Zc, |
& usingPCoords, usingZCoords, useDynP_inEos_Zc, |
363 |
& nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO, |
& nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO, |
364 |
& allowFreezing, useOldFreezing, |
& allowFreezing, useOldFreezing, |
365 |
& usePickupBeforeC35, usePickupBeforeC54, startFromPickupAB2, |
& usePickupBeforeC54, startFromPickupAB2, |
366 |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
& pickup_read_mdsio, pickup_write_mdsio, pickup_write_immed, |
367 |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
368 |
& outputTypesInclusive, dumpInitAndLast, debugMode, |
& outputTypesInclusive, dumpInitAndLast, debugMode, |
396 |
LOGICAL rigidLid |
LOGICAL rigidLid |
397 |
LOGICAL implicitFreeSurface |
LOGICAL implicitFreeSurface |
398 |
LOGICAL exactConserv |
LOGICAL exactConserv |
399 |
|
LOGICAL linFSConserveTr |
400 |
LOGICAL uniformLin_PhiSurf |
LOGICAL uniformLin_PhiSurf |
401 |
LOGICAL use3Dsolver |
LOGICAL use3Dsolver |
402 |
LOGICAL implicitIntGravWave |
LOGICAL implicitIntGravWave |
442 |
LOGICAL useSingleCpuIO |
LOGICAL useSingleCpuIO |
443 |
LOGICAL allowFreezing |
LOGICAL allowFreezing |
444 |
LOGICAL useOldFreezing |
LOGICAL useOldFreezing |
|
LOGICAL usePickupBeforeC35 |
|
445 |
LOGICAL usePickupBeforeC54 |
LOGICAL usePickupBeforeC54 |
446 |
LOGICAL startFromPickupAB2 |
LOGICAL startFromPickupAB2 |
447 |
LOGICAL dumpInitAndLast |
LOGICAL dumpInitAndLast |