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