/[MITgcm]/MITgcm/pkg/cal/cal_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/cal/cal_readparms.F

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

revision 1.13 by jmc, Thu Apr 5 21:59:03 2012 UTC revision 1.14 by jmc, Sat Apr 7 15:44:49 2012 UTC
# Line 98  C       Next, read the calendar data fil Line 98  C       Next, read the calendar data fil
98  C     Everyone else must wait for the parameters to be loaded  C     Everyone else must wait for the parameters to be loaded
99        _BARRIER        _BARRIER
100    
 #ifdef ALLOW_ECCO  
 C-    because of few (unfortunate) calendar settings in ECCO_READPARMS  
 C     needs this hack until ecco_readparms.F is cleaned up  
       CALL CAL_SET(  
      I              startTime, endTime, deltaTclock,  
      I              nIter0, nEndIter, nTimeSteps,  
      I              myThid )  
 #endif /* ALLOW_ECCO */  
   
101  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
102        IF (debugMode) CALL DEBUG_LEAVE('CAL_READPARMS',myThid)        IF (debugMode) CALL DEBUG_LEAVE('CAL_READPARMS',myThid)
103  #endif  #endif
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22