/[MITgcm]/MITgcm/pkg/autodiff/g_dummy_in_stepping.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/g_dummy_in_stepping.F

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

revision 1.1 by heimbach, Fri Jan 11 18:54:08 2002 UTC revision 1.1.2.2 by heimbach, Thu Apr 4 10:56:50 2002 UTC
# Line 27  C     == Global variables === Line 27  C     == Global variables ===
27  #include "SIZE.h"  #include "SIZE.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "PARAMS.h"  #include "PARAMS.h"
30    #ifdef ALLOW_AUTODIFF_MONITOR
31  #include "g_common.h"  #include "g_common.h"
32    #endif
33    
34        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
35        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 43  C     myThid - Thread number for this in Line 45  C     myThid - Thread number for this in
45        integer myiter        integer myiter
46        _RL     mytime        _RL     mytime
47    
48    #ifdef ALLOW_AUTODIFF_MONITOR
49    
50  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
51  c     == local variables ==  c     == local variables ==
52  C     suff - Hold suffix part of a filename  C     suff - Hold suffix part of a filename
# Line 146  C--     Check for IO errors Line 150  C--     Check for IO errors
150        ENDIF        ENDIF
151    
152        call TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )        call TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )
153    
154    #endif /* ALLOW_AUTODIFF_MONITOR */
155    
156        end        end
157    
158    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.2.2
  ViewVC Help
Powered by ViewVC 1.1.22