/[MITgcm]/MITgcm/model/src/update_masks_etc.F
ViewVC logotype

Diff of /MITgcm/model/src/update_masks_etc.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Sun May 9 22:40:03 2010 UTC revision 1.6 by jmc, Wed Jun 8 01:21:14 2011 UTC
# Line 157  CmlC     - end bi,bj loops. Line 157  CmlC     - end bi,bj loops.
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 )
# Line 270  C-    Write to disk: Total Column Thickn Line 270  C-    Write to disk: Total Column Thickn
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)',
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22