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

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

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

revision 1.50 by dimitri, Thu Feb 27 22:34:38 2003 UTC revision 1.51 by heimbach, Fri Feb 28 03:01:28 2003 UTC
# Line 459  C     myCurrentTime - Time counter for t Line 459  C     myCurrentTime - Time counter for t
459  C     myCurrentIter - Iteration counter for this thread  C     myCurrentIter - Iteration counter for this thread
460        INTEGER myCurrentIter        INTEGER myCurrentIter
461        _RL     myCurrentTime        _RL     myCurrentTime
462          logical  exst
463  CEOP  CEOP
464    
465  C--   This timer encompasses the whole code  C--   This timer encompasses the whole code
# Line 479  C--   Set model configuration (fixed arr Line 480  C--   Set model configuration (fixed arr
480    
481        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
482        IF (myProcId .eq. 0) THEN        IF (myProcId .eq. 0) THEN
483           CALL TIMER_START('CTRL_UNPACK         [THE_MODEL_MAIN]',mythid)           inquire( file='divided.ctrl', exist=exst )
484           CALL CTRL_UNPACK( mycurrentiter, mycurrenttime, mythid )           IF ( .NOT. exst) THEN
485           CALL TIMER_STOP ('CTRL_UNPACK         [THE_MODEL_MAIN]',mythid)              CALL TIMER_START('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)
486                CALL CTRL_UNPACK( mycurrentiter, mycurrenttime, mythid )
487                CALL TIMER_STOP ('CTRL_UNPACK      [THE_MODEL_MAIN]',mythid)
488             ENDIF
489        ENDIF        ENDIF
490        _END_MASTER( mythid )        _END_MASTER( mythid )
491        _BARRIER        _BARRIER
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51
  ViewVC Help
Powered by ViewVC 1.1.22