157 |
Cml ENDDO |
Cml ENDDO |
158 |
Cml ENDDO |
Cml ENDDO |
159 |
|
|
160 |
IF ( debugLevel.GE.debLevB ) THEN |
IF ( debugLevel.GE.debLevC ) THEN |
161 |
_BARRIER |
_BARRIER |
162 |
CALL PLOT_FIELD_XYRS( R_low, |
CALL PLOT_FIELD_XYRS( R_low, |
163 |
& 'Model R_low (update_masks_etc)', 1, myThid ) |
& 'Model R_low (update_masks_etc)', 1, myThid ) |
270 |
CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid) |
CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid) |
271 |
CALL WRITE_FLD_XYZ_RS( 'hFacS.',suff,hFacS,optimcycle,myThid) |
CALL WRITE_FLD_XYZ_RS( 'hFacS.',suff,hFacS,optimcycle,myThid) |
272 |
|
|
273 |
IF ( debugLevel.GE.debLevB ) THEN |
IF ( debugLevel.GE.debLevC ) THEN |
274 |
_BARRIER |
_BARRIER |
275 |
C-- Write to monitor file (standard output) |
C-- Write to monitor file (standard output) |
276 |
CALL PLOT_FIELD_XYZRS( hFacC,'hFacC (update_masks_etc)', |
CALL PLOT_FIELD_XYZRS( hFacC,'hFacC (update_masks_etc)', |