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: |
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 |
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 |
|
|
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: |
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 |
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 |