116 |
cph CALL WRITE_FLD_XY_RL( 'G_J_sst.',suff, g_sst, myIter, myThid) |
cph CALL WRITE_FLD_XY_RL( 'G_J_sst.',suff, g_sst, myIter, myThid) |
117 |
cph CALL WRITE_FLD_XY_RL( 'G_J_sss.',suff, g_sss, myIter, myThid) |
cph CALL WRITE_FLD_XY_RL( 'G_J_sss.',suff, g_sss, myIter, myThid) |
118 |
|
|
119 |
|
#ifdef ALLOW_AUTODIFF_MONITOR_PHIHYD |
120 |
|
CALL WRITE_FLD_XYZ_RL( |
121 |
|
& 'G_Jphihyd.',suff, g_totphihyd, myIter, myThid) |
122 |
|
#endif |
123 |
|
|
124 |
C-- Reread IO error counter |
C-- Reread IO error counter |
125 |
endIOErrCount = IO_ERRCOUNT(myThid) |
endIOErrCount = IO_ERRCOUNT(myThid) |
126 |
|
|