111 |
& DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock) |
& DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock) |
112 |
& ) THEN |
& ) THEN |
113 |
_BARRIER |
_BARRIER |
|
_BEGIN_MASTER( myThid ) |
|
114 |
WRITE(suff,'(I10.10)') myIter |
WRITE(suff,'(I10.10)') myIter |
115 |
CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1, |
CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1, |
116 |
& myIter, myThid) |
& myIter, myThid) |
|
_END_MASTER( myThid ) |
|
117 |
_BARRIER |
_BARRIER |
118 |
ENDIF |
ENDIF |
119 |
|
|
156 |
& DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock) |
& DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock) |
157 |
& ) THEN |
& ) THEN |
158 |
_BARRIER |
_BARRIER |
|
_BEGIN_MASTER( myThid ) |
|
159 |
WRITE(suff,'(I10.10)') myIter |
WRITE(suff,'(I10.10)') myIter |
160 |
CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1, |
CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1, |
161 |
& myIter, myThid) |
& myIter, myThid) |
|
_END_MASTER( myThid ) |
|
162 |
_BARRIER |
_BARRIER |
163 |
ENDIF |
ENDIF |
164 |
|
|