/[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.54 by adcroft, Tue May 13 17:42:00 2003 UTC revision 1.55 by heimbach, Tue Jun 24 20:47:19 2003 UTC
# Line 504  C--   Set model configuration (fixed arr Line 504  C--   Set model configuration (fixed arr
504        CALL COST_DEPENDENT_INIT ( mythid )        CALL COST_DEPENDENT_INIT ( mythid )
505        _BARRIER        _BARRIER
506    
507  #if ( defined (ALLOW_ADJOINT_RUN) || \  #ifndef ALLOW_TANGENTLINEAR_RUN
508        defined (ALLOW_ECCO_OPTIMIZATION) )  c
509  # ifdef ALLOW_DIVIDED_ADJOINT  # if ( defined (ALLOW_ADJOINT_RUN) || \
510           defined (ALLOW_ECCO_OPTIMIZATION) )
511    #  ifdef ALLOW_DIVIDED_ADJOINT
512  c-- The following assumes the TAF option '-pure'  c-- The following assumes the TAF option '-pure'
513        inquire( file='costfinal', exist=exst )        inquire( file='costfinal', exist=exst )
514        IF ( .NOT. exst) THEN        IF ( .NOT. exst) THEN
# Line 521  c-- The following assumes the TAF option Line 523  c-- The following assumes the TAF option
523           CALL COST_FINAL_RESTORE ( mythid, lastdiva )           CALL COST_FINAL_RESTORE ( mythid, lastdiva )
524        ENDIF        ENDIF
525  c--  c--
526  # else  #  else /* ALLOW_DIVIDED_ADJOINT undef */
527        CALL TIMER_START('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)        CALL TIMER_START('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)
528        CALL ADTHE_MAIN_LOOP ( mythid )        CALL ADTHE_MAIN_LOOP ( mythid )
529        CALL TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)        CALL TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)
530    #  endif /* ALLOW_DIVIDED_ADJOINT */
531  # endif  # endif
532  c--  c--
533  #elif (defined (ALLOW_TANGENTLINEAR_RUN))  #else /* ALLOW_TANGENTLINEAR_RUN defined */
534        CALL TIMER_START('G_THE_MAIN_LOOP           [TANGENT RUN]',mythid)        CALL TIMER_START('G_THE_MAIN_LOOP           [TANGENT RUN]',mythid)
535        CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid )        CALL G_THE_MAIN_LOOP ( myCurrentTime, myCurrentIter, myThid )
536        CALL TIMER_STOP ('G_THE_MAIN_LOOP           [TANGENT RUN]',mythid)        CALL TIMER_STOP ('G_THE_MAIN_LOOP           [TANGENT RUN]',mythid)
537  #endif  #endif /* ALLOW_TANGENTLINEAR_RUN */
538        _BARRIER        _BARRIER
539    
540        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55
  ViewVC Help
Powered by ViewVC 1.1.22