1 |
C $Header$ |
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
|
|
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 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
49 |
c == local variables == |
c == local variables == |
85 |
Cml CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
Cml CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid) |
86 |
Cml CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid) |
Cml CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid) |
87 |
c |
c |
88 |
Cml CALL WRITE_FLD_XYZ_RL( |
Cml CALL WRITE_FLD_XYZ_RL( |
89 |
Cml & 'ADJgtnm1.',suff, adgtnm1, myIter, myThid) |
Cml & 'ADJgtnm1.',suff, adgtnm1, myIter, myThid) |
90 |
Cml CALL WRITE_FLD_XYZ_RL( |
Cml CALL WRITE_FLD_XYZ_RL( |
91 |
Cml & 'ADJgsnm1.',suff, adgsnm1, myIter, myThid) |
Cml & 'ADJgsnm1.',suff, adgsnm1, myIter, myThid) |
92 |
Cml CALL WRITE_FLD_XYZ_RL( |
Cml CALL WRITE_FLD_XYZ_RL( |
93 |
Cml & 'ADJgunm1.',suff, adgunm1, myIter, myThid) |
Cml & 'ADJgunm1.',suff, adgunm1, myIter, myThid) |
94 |
Cml CALL WRITE_FLD_XYZ_RL( |
Cml CALL WRITE_FLD_XYZ_RL( |
95 |
Cml & 'ADJgvnm1.',suff, adgvnm1, myIter, myThid) |
Cml & 'ADJgvnm1.',suff, adgvnm1, myIter, myThid) |
96 |
Cml#ifdef ALLOW_PASSIVE_TRACER |
Cml#ifdef ALLOW_PASSIVE_TRACER |
97 |
Cml CALL WRITE_FLD_XYZ_RL( |
Cml CALL WRITE_FLD_XYZ_RL( |
98 |
Cml & 'ADJgtr1nm1. ',suff, adgtr1nm1, myIter, myThid) |
Cml & 'ADJgtr1nm1. ',suff, adgtr1nm1, myIter, myThid) |
99 |
Cml#endif |
Cml#endif |
100 |
c |
c |
101 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
102 |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
& 'ADJtheta.',suff, adtheta, myIter, myThid) |
103 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
104 |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
& 'ADJsalt.',suff, adsalt, myIter, myThid) |
105 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
106 |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
& 'ADJuvel.',suff, aduvel, myIter, myThid) |
107 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
108 |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
& 'ADJvvel.',suff, advvel, myIter, myThid) |
109 |
CALL WRITE_FLD_XYZ_RL( |
CALL WRITE_FLD_XYZ_RL( |
110 |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
& 'ADJwvel.',suff, adwvel, myIter, myThid) |
111 |
|
|
112 |
Cml#ifdef ALLOW_PASSIVE_TRACER |
Cml#ifdef ALLOW_PASSIVE_TRACER |
113 |
Cml CALL WRITE_FLD_XYZ_RL( |
Cml CALL WRITE_FLD_XYZ_RL( |
114 |
Cml & 'ADJtr1. ',suff, adtr1, myIter, myThid) |
Cml & 'ADJtr1. ',suff, adtr1, myIter, myThid) |
115 |
Cml#endif |
Cml#endif |
116 |
Cml#ifdef ALLOW_DIFFKR_CONTROL |
Cml#ifdef ALLOW_DIFFKR_CONTROL |
117 |
Cml CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr, |
Cml CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr, |
118 |
Cml & myIter, myThid) |
Cml & myIter, myThid) |
119 |
Cml#endif |
Cml#endif |
120 |
Cml#ifdef ALLOW_KAPGM_CONTROL |
Cml#ifdef ALLOW_KAPGM_CONTROL |
121 |
Cml CALL WRITE_FLD_XYZ_RL ( 'ADJkagm.',suff, adkapgm, |
Cml CALL WRITE_FLD_XYZ_RL ( 'ADJkagm.',suff, adkapgm, |
122 |
Cml & myIter, myThid) |
Cml & myIter, myThid) |
123 |
Cml#endif |
Cml#endif |
124 |
#ifdef ALLOW_DEPTH_CONTROL |
#ifdef ALLOW_DEPTH_CONTROL |
155 |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
WRITE(msgBuf,'(A,I10)') 'Timestep ',myIter |
156 |
CALL PRINT_ERROR( msgBuf, 1 ) |
CALL PRINT_ERROR( msgBuf, 1 ) |
157 |
ELSE |
ELSE |
158 |
WRITE(msgBuf,'(A,I10)') |
WRITE(msgBuf,'(A,I10)') |
159 |
& '// Model state written, timestep', myIter |
& '// Model state written, timestep', myIter |
160 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
161 |
& SQUEEZE_RIGHT, 1 ) |
& SQUEEZE_RIGHT, 1 ) |
162 |
WRITE(msgBuf,'(A)') ' ' |
WRITE(msgBuf,'(A)') ' ' |
163 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
164 |
& SQUEEZE_RIGHT, 1 ) |
& SQUEEZE_RIGHT, 1 ) |
165 |
ENDIF |
ENDIF |
166 |
|
|