305 |
C calendar months and years. Requires pkg/cal. |
C calendar months and years. Requires pkg/cal. |
306 |
C dumpInitAndLast :: dumps model state to files at Initial (nIter0) |
C dumpInitAndLast :: dumps model state to files at Initial (nIter0) |
307 |
C & Last iteration, in addition multiple of dumpFreq iter. |
C & Last iteration, in addition multiple of dumpFreq iter. |
308 |
|
C balanceEmPmR :: substract global mean of EmPmR at every time step |
309 |
|
C balanceQnet :: substract global mean of Qnet at every time step |
310 |
|
C balancePrintMean:: print substracted global means to STDOUT |
311 |
|
|
312 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
313 |
& usingCurvilinearGrid, usingCylindricalGrid, |
& usingCurvilinearGrid, usingCylindricalGrid, |
314 |
& no_slip_sides,no_slip_bottom, |
& no_slip_sides,no_slip_bottom, |
343 |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
& timeave_mdsio, snapshot_mdsio, monitor_stdio, |
344 |
& outputTypesInclusive, dumpInitAndLast, debugMode, |
& outputTypesInclusive, dumpInitAndLast, debugMode, |
345 |
& inAdMode, inAdTrue, inAdFalse, inAdExact, |
& inAdMode, inAdTrue, inAdFalse, inAdExact, |
346 |
& calendarDumps |
& calendarDumps, |
347 |
|
& balanceEmPmR, balanceQnet, balancePrintMean |
348 |
|
|
349 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
350 |
LOGICAL usingSphericalPolarGrid |
LOGICAL usingSphericalPolarGrid |
427 |
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact |
LOGICAL inAdMode, inAdTrue, inAdFalse, inAdExact |
428 |
LOGICAL calendarDumps |
LOGICAL calendarDumps |
429 |
|
|
430 |
|
LOGICAL balanceEmPmR |
431 |
|
LOGICAL balanceQnet |
432 |
|
LOGICAL balancePrintMean |
433 |
|
|
434 |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
C-- COMMON /PARM_R/ "Real" valued parameters used by the model. |
435 |
C cg2dTargetResidual |
C cg2dTargetResidual |
436 |
C :: Target residual for cg2d solver; no unit (RHS normalisation) |
C :: Target residual for cg2d solver; no unit (RHS normalisation) |