237 |
C slow (f77) or does not work (f90). When |
C slow (f77) or does not work (f90). When |
238 |
C useSingleCpuIO is set, mdsio_writefield.F |
C useSingleCpuIO is set, mdsio_writefield.F |
239 |
C outputs from master mpi process only. |
C outputs from master mpi process only. |
240 |
C allowFreezing :: Allows water to freeze and form ice |
C allowFreezing :: Allows surface water to freeze and form ice |
241 |
|
C useOldFreezing :: use the old version (before checkpoint52a_pre, 2003-11-12) |
242 |
C groundAtK1 :: put the surface(k=1) at the Lower Boundary (=ground) |
C groundAtK1 :: put the surface(k=1) at the Lower Boundary (=ground) |
243 |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
COMMON /PARM_L/ usingCartesianGrid, usingSphericalPolarGrid, |
244 |
& usingCurvilinearGrid, |
& usingCurvilinearGrid, |
261 |
& periodicExternalForcing, |
& periodicExternalForcing, |
262 |
& usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr, |
& usingPCoords, usingZCoords, useDynP_inEos_Zc, setCenterDr, |
263 |
& nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO, |
& nonHydrostatic, quasiHydrostatic, globalFiles, useSingleCpuIO, |
264 |
& allowFreezing, groundAtK1, |
& allowFreezing, useOldFreezing, groundAtK1, |
265 |
& usePickupBeforeC35, debugMode, |
& usePickupBeforeC35, debugMode, |
266 |
& readPickupWithTracer, writePickupWithTracer |
& readPickupWithTracer, writePickupWithTracer |
267 |
LOGICAL usingCartesianGrid |
LOGICAL usingCartesianGrid |
317 |
LOGICAL globalFiles |
LOGICAL globalFiles |
318 |
LOGICAL useSingleCpuIO |
LOGICAL useSingleCpuIO |
319 |
LOGICAL allowFreezing |
LOGICAL allowFreezing |
320 |
|
LOGICAL useOldFreezing |
321 |
LOGICAL groundAtK1 |
LOGICAL groundAtK1 |
322 |
LOGICAL usePickupBeforeC35 |
LOGICAL usePickupBeforeC35 |
323 |
LOGICAL debugMode |
LOGICAL debugMode |