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

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

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

revision 1.1 by heimbach, Sat Feb 26 00:41:20 2011 UTC revision 1.2 by jmc, Fri Jul 27 21:12:02 2012 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "AUTODIFF_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
5    
6        subroutine dummy_in_dynamics( mytime, myiter, myThid )  CBOP
7    C     !ROUTINE: DUMMY_IN_DYNAMICS
8    C     !INTERFACE:
9          SUBROUTINE DUMMY_IN_DYNAMICS( myTime, myIter, myThid )
10    
11    C     !DESCRIPTION: \bv
12    C     *==========================================================*
13    C     | SUBROUTINE DUMMY_IN_DYNAMICS                             |
14    C     *==========================================================*
15    C     \ev
16    
17    C     !USES:
18        IMPLICIT NONE        IMPLICIT NONE
 C     /==========================================================\  
 C     | SUBROUTINE dummy_in_stepping                             |  
 C     |==========================================================|  
 C     == Global variables ===  
19    
20    C     == Global variables ===
21  #include "SIZE.h"  #include "SIZE.h"
22  #include "EEPARAMS.h"  #include "EEPARAMS.h"
23  #include "PARAMS.h"  #include "PARAMS.h"
24    
25  C     == Routine arguments ==  C     !INPUT/OUTPUT PARAMETERS:
26  C     myThid - Thread number for this instance of the routine.  C     myTime :: time counter for this thread
27        integer myThid  C     myIter :: iteration counter for this thread
28        integer myiter  C     myThid :: Thread number for this instance of the routine.
29        _RL     mytime        _RL     myTime
30          INTEGER myIter
31        call TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )        INTEGER myThid
   
       call TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )  
   
       end  
   
   
   
   
   
   
   
32    
33    C     !LOCAL VARIABLES:
34    CEOP
35    
36          RETURN
37          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22