/[MITgcm]/MITgcm/pkg/exf/exf_adjoint_snapshots.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_adjoint_snapshots.F

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

revision 1.2 by heimbach, Wed Jun 6 14:05:27 2007 UTC revision 1.3 by heimbach, Wed Jun 6 14:08:41 2007 UTC
# Line 20  C     myThid - Thread number for this in Line 20  C     myThid - Thread number for this in
20        integer myiter        integer myiter
21        _RL     mytime        _RL     mytime
22    
23    #ifdef ALLOW_AUTODIFF_MONITOR
24        call TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )        call TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )
25    
26        call TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )        call TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )
27    #endif
28    
29        end        end
30    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22