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

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

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

revision 1.28 by adcroft, Thu Jan 8 15:28:45 2004 UTC revision 1.29 by adcroft, Thu May 13 15:40:53 2004 UTC
# Line 217  C     We should really supply a flag for Line 217  C     We should really supply a flag for
217    
218  C-    Write to disk: Total Column Thickness & hFac(C,W,S):  C-    Write to disk: Total Column Thickness & hFac(C,W,S):
219        _BARRIER        _BARRIER
220        _BEGIN_MASTER( myThid )  c     _BEGIN_MASTER( myThid )
221    C     This I/O is now done in write_grid.F
222  C     CALL MDSWRITEFIELD( 'Depth', writeBinaryPrec, .TRUE.,  C     CALL MDSWRITEFIELD( 'Depth', writeBinaryPrec, .TRUE.,
223  C    &                    'RS', 1, tmpfld, 1, -1, myThid )  C    &                    'RS', 1, tmpfld, 1, -1, myThid )
224        CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,0,myThid)  c     CALL WRITE_FLD_XY_RS( 'Depth',' ',tmpfld,0,myThid)
225        CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC,0,myThid)  c     CALL WRITE_FLD_XYZ_RS( 'hFacC',' ',hFacC,0,myThid)
226        CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW,0,myThid)  c     CALL WRITE_FLD_XYZ_RS( 'hFacW',' ',hFacW,0,myThid)
227        CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS,0,myThid)  c     CALL WRITE_FLD_XYZ_RS( 'hFacS',' ',hFacS,0,myThid)
228        _END_MASTER(myThid)  c     _END_MASTER(myThid)
229    
230        CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid )        CALL PLOT_FIELD_XYZRS( hFacC, 'hFacC' , Nr, 1, myThid )
231        CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid )        CALL PLOT_FIELD_XYZRS( hFacW, 'hFacW' , Nr, 1, myThid )
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22