/[MITgcm]/MITgcm/pkg/obcs/obcs_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_calc.F

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

revision 1.22 by jmc, Fri Oct 2 20:08:42 2009 UTC revision 1.23 by jmc, Sun Oct 4 22:36:30 2009 UTC
# Line 360  C--     Calculate future values on open Line 360  C--     Calculate future values on open
360        IF ( debugLevel .GE. debLevB )        IF ( debugLevel .GE. debLevB )
361       &      CALL DEBUG_CALL('OBCS_PRESCRIBE_READ',myThid)       &      CALL DEBUG_CALL('OBCS_PRESCRIBE_READ',myThid)
362  #endif  #endif
 #ifdef HACK_TO_FIX_SEAICE_OBCS_RESTART  
 C- jmc: Restart Pb with seaice+obcs get "fixed" by adding the following call.  
 C       have no clue why (exf+cal initialisation issue ?).  
         IF ( futureIter.EQ.1+nIter0 .AND. nIter0.GT.0 )  
      &  CALL OBCS_PRESCRIBE_READ( startTime, nIter0, myThid)  
 #endif /* HACK_TO_FIX_SEAICE_OBCS_RESTART */  
363          CALL OBCS_PRESCRIBE_READ( futureTime, futureIter, myThid )          CALL OBCS_PRESCRIBE_READ( futureTime, futureIter, myThid )
364        ENDIF        ENDIF
365  #endif /* ALLOW_OBCS_PRESCRIBE */  #endif /* ALLOW_OBCS_PRESCRIBE */
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22