/[MITgcm]/MITgcm/pkg/ecco/the_main_loop.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/the_main_loop.F

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

revision 1.43 by gforget, Wed Oct 25 22:22:27 2006 UTC revision 1.44 by heimbach, Mon Oct 30 17:01:22 2006 UTC
# Line 506  c--     Set the model iteration counter Line 506  c--     Set the model iteration counter
506          CALL AUTODIFF_INADMODE_UNSET( myThid )          CALL AUTODIFF_INADMODE_UNSET( myThid )
507  #endif  #endif
508    
   
 #ifndef ALLOW_DIVIDED_ADJOINT  
509  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
510  C--   Switch on/off diagnostics for snap-shot output:  C--   Switch on/off diagnostics for snap-shot output:
511        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
# Line 520  C--   State-variables diagnostics Line 518  C--   State-variables diagnostics
518          CALL TIMER_STOP ('DO_STATEVARS_DIAGS  [FORWARD_STEP]',myThid)          CALL TIMER_STOP ('DO_STATEVARS_DIAGS  [FORWARD_STEP]',myThid)
519        ENDIF        ENDIF
520  #endif  #endif
 #endif  
521    
522  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
523  c--     Accumulate in-situ time averages of temperature, salinity, and SSH.  c--     Accumulate in-situ time averages of temperature, salinity, and SSH.
# Line 939  C--   do exchanges of U,V (needed for mu Line 936  C--   do exchanges of U,V (needed for mu
936          CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid )          CALL DO_STAGGER_FIELDS_EXCHANGES( myTime, myIter, myThid )
937          CALL TIMER_STOP ('BLOCKING_EXCHANGES  [FORWARD_STEP]',myThid)          CALL TIMER_STOP ('BLOCKING_EXCHANGES  [FORWARD_STEP]',myThid)
938    
 #ifndef ALLOW_DIVIDED_ADJOINT  
939  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
940  C--   State-variables diagnostics  C--   State-variables diagnostics
941         IF ( usediagnostics ) THEN         IF ( usediagnostics ) THEN
# Line 948  C--   State-variables diagnostics Line 944  C--   State-variables diagnostics
944          CALL TIMER_STOP ('DO_STATEVARS_DIAGS  [FORWARD_STEP]',myThid)          CALL TIMER_STOP ('DO_STATEVARS_DIAGS  [FORWARD_STEP]',myThid)
945         ENDIF         ENDIF
946  #endif  #endif
 #endif  
947    
948  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
949          IF ( debugLevel .GE. debLevB )          IF ( debugLevel .GE. debLevB )
# Line 1009  C--   Calculate float trajectories Line 1004  C--   Calculate float trajectories
1004          CALL AUTODIFF_INADMODE_SET( myThid )          CALL AUTODIFF_INADMODE_SET( myThid )
1005  #endif  #endif
1006    
 #ifndef ALLOW_DIVIDED_ADJOINT  
1007  C--   State-variables time-averaging  C--   State-variables time-averaging
1008        CALL TIMER_START('DO_STATEVARS_TAVE   [FORWARD_STEP]',myThid)        CALL TIMER_START('DO_STATEVARS_TAVE   [FORWARD_STEP]',myThid)
1009        CALL DO_STATEVARS_TAVE( myTime, myIter, myThid )        CALL DO_STATEVARS_TAVE( myTime, myIter, myThid )
# Line 1035  C--   Do IO if needed. Line 1029  C--   Do IO if needed.
1029        CALL TIMER_STOP ('DO_THE_MODEL_IO     [FORWARD_STEP]',myThid)        CALL TIMER_STOP ('DO_THE_MODEL_IO     [FORWARD_STEP]',myThid)
1030  #endif  #endif
1031    
1032    #ifndef ALLOW_DIVIDED_ADJOINT
1033  C--   Save state for restarts  C--   Save state for restarts
1034        CALL TIMER_START('WRITE_CHECKPOINT    [FORWARD_STEP]',myThid)        CALL TIMER_START('WRITE_CHECKPOINT    [FORWARD_STEP]',myThid)
1035        CALL PACKAGES_WRITE_PICKUP(        CALL PACKAGES_WRITE_PICKUP(
# Line 1200  c--   Compute cost function contribution Line 1195  c--   Compute cost function contribution
1195        call timer_stop ('cost_ssh           [ECCO SPIN-DOWN]', mythid)        call timer_stop ('cost_ssh           [ECCO SPIN-DOWN]', mythid)
1196  # ifdef ALLOW_AUTODIFF_TAMC  # ifdef ALLOW_AUTODIFF_TAMC
1197  #  ifdef ALLOW_PROFILES  #  ifdef ALLOW_PROFILES
1198  CADJ STORE etan = tapelev_init, key = 1  CADJ STORE prof_etan_mean = tapelev_init, key = 1
1199  #  endif  #  endif
1200  # endif  # endif
1201  #endif  #endif
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22