/[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.3 by heimbach, Fri Mar 7 00:36:36 2003 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  #include "g_common.h"  #ifdef ALLOW_AUTODIFF_MONITOR
31    # include "g_common.h"
32    #endif
33    
34        LOGICAL  DIFFERENT_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
35        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
# Line 41  C     myTime - time counter for this thr Line 43  C     myTime - time counter for this thr
43  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
44        integer myThid        integer myThid
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 ==
# 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.3
  ViewVC Help
Powered by ViewVC 1.1.22