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

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

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

revision 1.42 by heimbach, Mon Feb 28 17:37:31 2005 UTC revision 1.43 by jmc, Wed Apr 6 18:29:53 2005 UTC
# Line 91  CEOP Line 91  CEOP
91    
92  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
93    
94        nIter0 = INT( startTime/deltaTClock )        nIter0 = NINT( (startTime-baseTime)/deltaTClock )
95    
96  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)  C--   Set Bo_surf => define the Linear Relation: Phi_surf(eta)
97  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 169  C--   Initialize variable data for packa Line 169  C--   Initialize variable data for packa
169        IF ( usePickupBeforeC35 ) THEN        IF ( usePickupBeforeC35 ) THEN
170  C-- IMPORTANT : Need to activate the following call to restart from  C-- IMPORTANT : Need to activate the following call to restart from
171  C     a pickup file written by MITgcmUV_checkpoint34 or earlier.  C     a pickup file written by MITgcmUV_checkpoint34 or earlier.
172        IF ( startTime .NE. 0. ) THEN        IF ( startTime .NE. baseTime ) THEN
173  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
174        IF (debugMode) CALL DEBUG_CALL('THE_CORRECTION_STEP',myThid)        IF (debugMode) CALL DEBUG_CALL('THE_CORRECTION_STEP',myThid)
175  #endif  #endif
# Line 180  C     a pickup file written by MITgcmUV_ Line 180  C     a pickup file written by MITgcmUV_
180    
181  C--   Initial conditions are convectively adjusted (for historical reasons)  C--   Initial conditions are convectively adjusted (for historical reasons)
182  #ifndef ALLOW_OFFLINE  #ifndef ALLOW_OFFLINE
183        IF ( startTime .EQ. 0. .AND. cAdjFreq .NE. 0. ) THEN        IF ( startTime .EQ. baseTime .AND. cAdjFreq .NE. 0. ) THEN
184  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
185        IF (debugMode) CALL DEBUG_CALL('CONVECTIVE_ADJUSTMENT_INI',myThid)        IF (debugMode) CALL DEBUG_CALL('CONVECTIVE_ADJUSTMENT_INI',myThid)
186  #endif  #endif
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22