/[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.63 by edhill, Fri Oct 24 05:29:35 2003 UTC revision 1.64 by heimbach, Mon Oct 27 22:32:55 2003 UTC
# Line 517  C--   Set model configuration (fixed arr Line 517  C--   Set model configuration (fixed arr
517        myCurrentTime = startTime        myCurrentTime = startTime
518        myCurrentIter = nIter0        myCurrentIter = nIter0
519    
520  #if ( defined (ALLOW_ADMTLM_RUN) )  #if ( defined (ALLOW_ADMTLM) )
521  c  c
522        CALL TIMER_START('ADMTLM_DRIVER          [THE_MODEL_MAIN]',mythid)        CALL TIMER_START('ADMTLM_DRIVER          [THE_MODEL_MAIN]',mythid)
523        CALL ADMTLM_DRIVER ( myThid )        CALL ADMTLM_DRIVER ( myThid )
524        CALL TIMER_STOP ('ADMTLM_DRIVER          [THE_MODEL_MAIN]',mythid)        CALL TIMER_STOP ('ADMTLM_DRIVER          [THE_MODEL_MAIN]',mythid)
525  c  c
526  #elif ( defined (ALLOW_ADJOINT_RUN) || \  #elif ( defined (ALLOW_AUTODIFF))
       defined (ALLOW_TANGENTLINEAR_RUN) || \  
       defined (ALLOW_GRADIENT_CHECK) || \  
       defined (ALLOW_ECCO_OPTIMIZATION) )  
527    
528        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
529        IF (myProcId .eq. 0) THEN        IF (myProcId .eq. 0) THEN
# Line 585  c Line 582  c
582        _BARRIER        _BARRIER
583  c  c
584    
585  # ifdef ALLOW_GRADIENT_CHECK  # ifdef ALLOW_GRDCHK
586        IF ( useGrdchk .AND. lastdiva ) THEN        IF ( useGrdchk .AND. lastdiva ) THEN
587           CALL TIMER_START('GRDCHK_MAIN         [THE_MODEL_MAIN]',mythid)           CALL TIMER_START('GRDCHK_MAIN         [THE_MODEL_MAIN]',mythid)
588           CALL GRDCHK_MAIN( mythid )           CALL GRDCHK_MAIN( mythid )
Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64
  ViewVC Help
Powered by ViewVC 1.1.22