/[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.97 by jmc, Thu Aug 24 01:15:45 2006 UTC revision 1.102 by heimbach, Fri Feb 9 10:20:39 2007 UTC
# Line 288  C/\  | | | | | |-KPP_TRANSPORT_PTR:: KPP Line 288  C/\  | | | | | |-KPP_TRANSPORT_PTR:: KPP
288  C/\  | | | | |  C/\  | | | | |
289  C/\  | | | | |-PTRACERS_FORCING   :: Problem specific forcing for tracer.  C/\  | | | | |-PTRACERS_FORCING   :: Problem specific forcing for tracer.
290  C/\  | | | | |-GCHEM_FORCING_INT  :: tracer forcing for gchem pkg (if all  C/\  | | | | |-GCHEM_FORCING_INT  :: tracer forcing for gchem pkg (if all
291  C/\  | | | | |                       tendancy terms calcualted together)  C/\  | | | | |                       tendency terms calcualted together)
292  C/\  | | | | |-ADAMS_BASHFORTH2   :: Extrapolate tendencies forward in time.  C/\  | | | | |-ADAMS_BASHFORTH2   :: Extrapolate tendencies forward in time.
293  C/\  | | | | |-FREESURF_RESCALE_G :: Re-scale Gs for free-surface height.  C/\  | | | | |-FREESURF_RESCALE_G :: Re-scale Gs for free-surface height.
294  C/\  | | | | |-TIMESTEP_TRACER    :: Step tracer field forward in time  C/\  | | | | |-TIMESTEP_TRACER    :: Step tracer field forward in time
# Line 561  c-- The following assumes the TAF option Line 561  c-- The following assumes the TAF option
561           CALL COST_FINAL_STORE ( mythid, lastdiva )           CALL COST_FINAL_STORE ( mythid, lastdiva )
562        ELSE        ELSE
563           CALL TIMER_START('ADTHE_MAIN_LOOP       [ADJOINT RUN]', mythid)           CALL TIMER_START('ADTHE_MAIN_LOOP       [ADJOINT RUN]', mythid)
564           CALL ADTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid )           CALL ADTHE_MAIN_LOOP (  mythid )
565           CALL TIMER_STOP ('ADTHE_MAIN_LOOP       [ADJOINT RUN]', mythid)           CALL TIMER_STOP ('ADTHE_MAIN_LOOP       [ADJOINT RUN]', mythid)
566           CALL COST_FINAL_RESTORE ( mythid, lastdiva )           CALL COST_FINAL_RESTORE ( mythid, lastdiva )
567        ENDIF        ENDIF
568  c--  c--
569  #  else /* ALLOW_DIVIDED_ADJOINT undef */  #  else /* ALLOW_DIVIDED_ADJOINT undef */
570        CALL TIMER_START('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)        CALL TIMER_START('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)
571        CALL ADTHE_MAIN_LOOP ( myCurrentTime, myCurrentIter, mythid )  #ifdef ALLOW_ECCO
572  cph      CALL ADTHE_MAIN_LOOP ( mythid )        CALL ADTHE_MAIN_LOOP ( myCurrentTime, mythid )
573    #else
574          CALL ADTHE_MAIN_LOOP ( mythid )
575    #endif
576        CALL TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)        CALL TIMER_STOP ('ADTHE_MAIN_LOOP          [ADJOINT RUN]', mythid)
577  #  endif /* ALLOW_DIVIDED_ADJOINT */  #  endif /* ALLOW_DIVIDED_ADJOINT */
578  c  c
Legend:
Removed from v.1.97  
changed lines
  Added in v.1.102
  ViewVC Help
Powered by ViewVC 1.1.22