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 |
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, |
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 |
495 |
C dBdrRef :: vertical gradient of reference boyancy [(m/s/r)^2)]: |
C dBdrRef :: vertical gradient of reference boyancy [(m/s/r)^2)]: |
496 |
C :: z-coord: = N^2_ref = Brunt-Vaissala frequency [s^-2] |
C :: z-coord: = N^2_ref = Brunt-Vaissala frequency [s^-2] |
497 |
C :: p-coord: = -(d.alpha/dp)_ref [(m^2.s/kg)^2] |
C :: p-coord: = -(d.alpha/dp)_ref [(m^2.s/kg)^2] |
498 |
|
C rVel2wUnit :: units conversion factor (Non-Hydrostatic code), |
499 |
|
C :: from r-coordinate vertical velocity to vertical velocity [m/s]. |
500 |
|
C :: z-coord: = 1 ; p-coord: wSpeed [m/s] = rVel [Pa/s] * rVel2wUnit |
501 |
|
C wUnit2rVel :: units conversion factor (Non-Hydrostatic code), |
502 |
|
C :: from vertical velocity [m/s] to r-coordinate vertical velocity. |
503 |
|
C :: z-coord: = 1 ; p-coord: rVel [Pa/s] = wSpeed [m/s] * wUnit2rVel |
504 |
C phiMin :: Latitude of southern most cell face. |
C phiMin :: Latitude of southern most cell face. |
505 |
C thetaMin :: Longitude of western most cell face (this |
C thetaMin :: Longitude of western most cell face (this |
506 |
C is an "inert" parameter but it is included |
C is an "inert" parameter but it is included |
675 |
& rhonil, recip_rhonil, rhoConst, recip_rhoConst, |
& rhonil, recip_rhonil, rhoConst, recip_rhoConst, |
676 |
& rhoFacC, recip_rhoFacC, rhoFacF, recip_rhoFacF, |
& rhoFacC, recip_rhoFacC, rhoFacF, recip_rhoFacF, |
677 |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, phiRef, dBdrRef, |
& rhoConstFresh, convertEmP2rUnit, tRef, sRef, phiRef, dBdrRef, |
678 |
|
& rVel2wUnit, wUnit2rVel, |
679 |
& baseTime, startTime, endTime, |
& baseTime, startTime, endTime, |
680 |
& chkPtFreq, pChkPtFreq, dumpFreq, adjDumpFreq, |
& chkPtFreq, pChkPtFreq, dumpFreq, adjDumpFreq, |
681 |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
& diagFreq, taveFreq, tave_lastIter, monitorFreq, adjMonitorFreq, |
770 |
_RL sRef(Nr) |
_RL sRef(Nr) |
771 |
_RL phiRef(2*Nr+1) |
_RL phiRef(2*Nr+1) |
772 |
_RL dBdrRef(Nr) |
_RL dBdrRef(Nr) |
773 |
|
_RL rVel2wUnit(Nr+1), wUnit2rVel(Nr+1) |
774 |
_RL baseTime |
_RL baseTime |
775 |
_RL startTime |
_RL startTime |
776 |
_RL endTime |
_RL endTime |
846 |
LOGICAL useMY82 |
LOGICAL useMY82 |
847 |
LOGICAL useGGL90 |
LOGICAL useGGL90 |
848 |
LOGICAL useKPP |
LOGICAL useKPP |
849 |
|
LOGICAL useGAD |
850 |
LOGICAL useGMRedi |
LOGICAL useGMRedi |
851 |
LOGICAL useOBCS |
LOGICAL useOBCS |
852 |
LOGICAL useAIM |
LOGICAL useAIM |
880 |
LOGICAL useMYPACKAGE |
LOGICAL useMYPACKAGE |
881 |
COMMON /PARM_PACKAGES/ |
COMMON /PARM_PACKAGES/ |
882 |
& useOPPS, usePP81, useMY82, useGGL90, useKPP, |
& useOPPS, usePP81, useMY82, useGGL90, useKPP, |
883 |
& useGMRedi, useOBCS, useAIM, useLand, |
& useGAD, useGMRedi, useOBCS, useAIM, useLand, |
884 |
& useCAL, useEXF, useEBM, useGrdchk, useECCO, |
& useCAL, useEXF, useEBM, useGrdchk, useECCO, |
885 |
& useSHAP_FILT, useZONAL_FILT, useFLT, |
& useSHAP_FILT, useZONAL_FILT, useFLT, |
886 |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |
& usePTRACERS, useGCHEM, useRBCS, useOffLine, useMATRIX, |