/[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.81 by edhill, Sun Oct 10 06:08:47 2004 UTC revision 1.82 by heimbach, Tue Nov 16 05:42:11 2004 UTC
# Line 488  C     myCurrentIter - Iteration counter Line 488  C     myCurrentIter - Iteration counter
488        _RL     myCurrentTime        _RL     myCurrentTime
489        logical  exst        logical  exst
490        logical  lastdiva        logical  lastdiva
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       integer optimcycle  
 #endif  
491  CEOP  CEOP
492  c--   set default:  c--   set default:
 #ifndef ALLOW_ECCO_OPTIMIZATION  
       optimcycle = 0  
 #endif  
493        lastdiva = .TRUE.        lastdiva = .TRUE.
494    
495  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
# Line 519  C--   Set model configuration (fixed arr Line 513  C--   Set model configuration (fixed arr
513    
514  #if ( defined (ALLOW_ADMTLM) )  #if ( defined (ALLOW_ADMTLM) )
515  c  c
516        CALL TIMER_START('ADMTLM_DRIVER          [THE_MODEL_MAIN]',mythid)        STOP 'should never get here; ADMTLM_DSVD calls ADMTLM_DRIVER'
       CALL ADMTLM_DRIVER ( myThid )  
       CALL TIMER_STOP ('ADMTLM_DRIVER          [THE_MODEL_MAIN]',mythid)  
517  c  c
518  #elif ( defined (ALLOW_AUTODIFF))  #elif ( defined (ALLOW_AUTODIFF))
519    
Legend:
Removed from v.1.81  
changed lines
  Added in v.1.82
  ViewVC Help
Powered by ViewVC 1.1.22