/[MITgcm]/MITgcm/verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F
ViewVC logotype

Diff of /MITgcm/verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F

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

revision 1.3 by jmc, Mon Mar 22 01:15:15 2010 UTC revision 1.4 by jmc, Sun Aug 12 01:34:44 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "AUTODIFF_OPTIONS.h"
5    
6        subroutine dummy_in_hfac( myname, myIter, myThid )        subroutine dummy_in_hfac( myname, myIter, myThid )
7    
8    C     *==========================================================*
9    C     | SUBROUTINE dummy_in_hfac
10    C     *==========================================================*
11    
12        IMPLICIT NONE        IMPLICIT NONE
 C     /==========================================================\  
 C     | SUBROUTINE dummy_in_hfac                                |  
 C     |==========================================================|  
13  C     == Global variables ===  C     == Global variables ===
   
14  #include "SIZE.h"  #include "SIZE.h"
15  #include "EEPARAMS.h"  #include "EEPARAMS.h"
16  #include "PARAMS.h"  #include "PARAMS.h"
17    
18  C     == Routine arguments ==  C     == Routine arguments ==
19  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
       INTEGER myThid  
       INTEGER myIter  
20        CHARACTER*(*) myname        CHARACTER*(*) myname
21          INTEGER myIter
22          INTEGER myThid
23    
24        call TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )        RETURN
25          END
       call TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )  
   
       end  
26    
27    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
28  CBOP  CBOP
29  C     !ROUTINE: addummy_in_hfac  C     !ROUTINE: addummy_in_hfac
30  C     !INTERFACE:  C     !INTERFACE:
# Line 33  C     !INTERFACE: Line 32  C     !INTERFACE:
32    
33  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
34  C     *==========================================================*  C     *==========================================================*
35  C     | SUBROUTINE addummy_in_hfac                              |  C     | SUBROUTINE addummy_in_hfac
36  C     *==========================================================*  C     *==========================================================*
37  C     Extract adjoint variable from TAMC/TAF-generated  C     Extract adjoint variable from TAMC/TAF-generated
38  C     adjoint common blocks, contained in adcommon.h  C     adjoint common blocks, contained in adcommon.h
# Line 41  C     and write fields to file; Line 40  C     and write fields to file;
40  C     Make sure common blocks in adcommon.h are up-to-date  C     Make sure common blocks in adcommon.h are up-to-date
41  C     w.r.t. current adjoint code.  C     w.r.t. current adjoint code.
42  C     *==========================================================*  C     *==========================================================*
43  C     | SUBROUTINE addummy_in_hfac                              |  C     | SUBROUTINE addummy_in_hfac
44  C     *==========================================================*  C     *==========================================================*
45  C     \ev  C     \ev
46    
# Line 64  C     == Global variables === Line 63  C     == Global variables ===
63  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
64  C     == Routine arguments ==  C     == Routine arguments ==
65  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
       integer myThid  
       integer myIter  
66        CHARACTER*(1) myname        CHARACTER*(1) myname
67          integer myIter
68          integer myThid
69    
70  #ifdef ALLOW_AUTODIFF_MONITOR  #ifdef ALLOW_AUTODIFF_MONITOR
71  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
# Line 89  CEOP Line 88  CEOP
88    
89        mytime = 0.        mytime = 0.
90    
       call TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )  
   
91        IF (        IF (
92       &  DIFFERENT_MULTIPLE(dumpFreq,mytime,       &  DIFFERENT_MULTIPLE(dumpFreq,mytime,
93       &                     mytime-deltaTClock)       &                     mytime-deltaTClock)
94       & ) THEN       & ) THEN
95    
96         _BARRIER          CALL TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )
        _BEGIN_MASTER( myThid )  
97    
98  C--     Set suffix for this set of data files.  C--     Set suffix for this set of data files.
99          WRITE(suff,'(I10.10)') myIter          WRITE(suff,'(I10.10)') myIter
# Line 142  C--     Check for IO errors Line 138  C--     Check for IO errors
138       &    SQUEEZE_RIGHT, 1 )       &    SQUEEZE_RIGHT, 1 )
139          ENDIF          ENDIF
140    
141         _END_MASTER( myThid )          CALL TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )
        _BARRIER  
142    
143        ENDIF        ENDIF
144    
       call TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )  
145  #endif /* ALLOW_DEPTH_CONTROL */  #endif /* ALLOW_DEPTH_CONTROL */
146  #endif /* ALLOW_AUTODIFF_MONITOR */  #endif /* ALLOW_AUTODIFF_MONITOR */
147    
148        end        RETURN
149          END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22