/[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.45 by heimbach, Fri Nov 3 23:38:51 2006 UTC revision 1.46 by heimbach, Fri Nov 3 23:51:34 2006 UTC
# Line 1038  C--   Do IO if needed. Line 1038  C--   Do IO if needed.
1038  #endif  #endif
1039    
1040  #ifndef ALLOW_DIVIDED_ADJOINT  #ifndef ALLOW_DIVIDED_ADJOINT
1041    # ifdef HAVE_SIGREG
1042          IF ( useSIGREG ) THEN
1043            IF ( i_got_signal .GT. 0 ) THEN
1044              CALL PACKAGES_WRITE_PICKUP(
1045         I         .TRUE., myTime, myIter, myThid )
1046              CALL WRITE_PICKUP(
1047         I         .TRUE., myTime, myIter, myThid )
1048              STOP 'Checkpoint completed -- killed by signal handler'
1049            ENDIF
1050          ENDIF
1051    # endif /* HAVE_SIGREG */
1052  C--   Save state for restarts  C--   Save state for restarts
1053        CALL TIMER_START('WRITE_CHECKPOINT    [FORWARD_STEP]',myThid)        CALL TIMER_START('DO_WRITE_PICKUP     [FORWARD_STEP]',myThid)
1054        CALL PACKAGES_WRITE_PICKUP(        CALL DO_WRITE_PICKUP(
1055       I               .FALSE., myTime, myIter, myThid )       I               .FALSE., myTime, myIter, myThid )
1056  #ifndef ALLOW_OFFLINE        CALL TIMER_STOP ('DO_WRITE_PICKUP     [FORWARD_STEP]',myThid)
1057        CALL WRITE_CHECKPOINT(  #endif /* ALLOW_DIVIDED_ADJOINT */
      I               .FALSE., myTime, myIter, myThid )    
 #endif  
       CALL TIMER_STOP ('WRITE_CHECKPOINT    [FORWARD_STEP]',myThid)  
 #endif  
1058    
1059  #ifdef TIME_PER_TIMESTEP  #ifdef TIME_PER_TIMESTEP
1060  CCE107 Time per timestep information  CCE107 Time per timestep information
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22