/[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.209 by jmc, Tue Apr 1 01:28:39 2008 UTC revision 1.210 by jmc, Sat Apr 5 18:14:50 2008 UTC
# Line 225  C--   Time stepping parammeters Line 225  C--   Time stepping parammeters
225       & diagFreq, monitorFreq, adjMonitorFreq, monitorSelect,       & diagFreq, monitorFreq, adjMonitorFreq, monitorSelect,
226       & outputTypesInclusive,       & outputTypesInclusive,
227       & tauThetaClimRelax, tauSaltClimRelax, latBandClimRelax,       & tauThetaClimRelax, tauSaltClimRelax, latBandClimRelax,
228       & tauThetaClimRelax3Dim, tauSaltClimRelax3Dim, tauTr1ClimRelax,       & tauThetaClimRelax3Dim, tauSaltClimRelax3Dim,
229       & periodicExternalForcing, externForcingPeriod, externForcingCycle,       & periodicExternalForcing, externForcingPeriod, externForcingCycle,
230       & calendarDumps       & calendarDumps
231    
# Line 885  C     o Salinity climatology relaxation Line 885  C     o Salinity climatology relaxation
885        ELSE        ELSE
886         doSaltClimRelax     = .TRUE.         doSaltClimRelax     = .TRUE.
887        ENDIF        ENDIF
 C     o Tracer 1 climatology relaxation time scale  
       IF ( tauTr1ClimRelax .EQ. 0.D0 ) THEN  
        doTr1ClimRelax     = .FALSE.  
        lambdaTr1ClimRelax = 0.D0  
       ELSE  
        doTr1ClimRelax     = .TRUE.  
        lambdaTr1ClimRelax = 1./tauTr1ClimRelax  
       ENDIF  
888    
889  C     o Base time  C     o Base time
890        IF ( nIter0.NE.0 .AND. startTime.NE.0. .AND. baseTime.EQ.0. )        IF ( nIter0.NE.0 .AND. startTime.NE.0. .AND. baseTime.EQ.0. )
Legend:
Removed from v.1.209  
changed lines
  Added in v.1.210
  ViewVC Help
Powered by ViewVC 1.1.22