2 |
C $Name$ |
C $Name$ |
3 |
|
|
4 |
#include "AUTODIFF_OPTIONS.h" |
#include "AUTODIFF_OPTIONS.h" |
5 |
|
#ifdef ALLOW_CTRL |
6 |
|
# include "CTRL_OPTIONS.h" |
7 |
|
#endif |
8 |
#include "AD_CONFIG.h" |
#include "AD_CONFIG.h" |
9 |
|
|
10 |
CBOP |
CBOP |
68 |
CALL TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
CALL TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid ) |
69 |
c write(*,*) 'myIter= ',myIter |
c write(*,*) 'myIter= ',myIter |
70 |
|
|
|
|
|
71 |
C-- Set suffix for this set of data files. |
C-- Set suffix for this set of data files. |
72 |
WRITE(suff,'(I10.10)') myIter |
WRITE(suff,'(I10.10)') myIter |
73 |
C ==>> Resetting run-time parameter writeBinaryPrec in the middle of a run |
C ==>> Resetting run-time parameter writeBinaryPrec in the middle of a run |