/[MITgcm]/MITgcm/model/src/ini_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_parms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.79 by jmc, Sat Jun 15 03:28:39 2002 UTC revision 1.80 by adcroft, Fri Jun 21 18:36:05 2002 UTC
# Line 139  C--   Elliptic solver parameters Line 139  C--   Elliptic solver parameters
139    
140  C--   Time stepping parammeters  C--   Time stepping parammeters
141        NAMELIST /PARM03/        NAMELIST /PARM03/
142       & nIter0, nTimeSteps, nEndIter, deltaT, deltaTmom, deltaTtracer,       & nIter0, nTimeSteps, nEndIter,
143         & deltaT, deltaTmom, deltaTtracer, deltaTfreesurf,
144       & forcing_In_AB, abEps, tauCD, rCD,       & forcing_In_AB, abEps, tauCD, rCD,
145       & startTime, endTime, chkPtFreq,       & startTime, endTime, chkPtFreq,
146       & dumpFreq, taveFreq, deltaTClock, diagFreq,       & dumpFreq, taveFreq, deltaTClock, diagFreq,
# Line 486  C     o Time step size Line 487  C     o Time step size
487        IF ( deltaTmom    .EQ. 0. ) deltaTmom    = deltaT        IF ( deltaTmom    .EQ. 0. ) deltaTmom    = deltaT
488        IF ( deltaTtracer .EQ. 0. ) deltaTtracer = deltaT        IF ( deltaTtracer .EQ. 0. ) deltaTtracer = deltaT
489        IF ( deltaTClock  .EQ. 0. ) deltaTClock  = deltaT        IF ( deltaTClock  .EQ. 0. ) deltaTClock  = deltaT
490    C Note that this line should set deltaTreesurf=deltaTmom
491    C but this would change a lot of existing set-ups so we are
492    C obliged to set the default inappropriately.
493    C Be advised that when using asynchronous time stepping
494    C it is better to set deltaTreesurf=deltaTtracer
495          IF ( deltaTfreesurf .EQ. 0. ) deltaTfreesurf  = deltaTmom
496        IF ( periodicExternalForcing ) THEN        IF ( periodicExternalForcing ) THEN
497         IF ( externForcingCycle*externForcingPeriod .EQ. 0. ) THEN         IF ( externForcingCycle*externForcingPeriod .EQ. 0. ) THEN
498          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80
  ViewVC Help
Powered by ViewVC 1.1.22