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

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

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

revision 1.46 by jmc, Sun Jun 14 21:45:12 2009 UTC revision 1.47 by jmc, Fri Aug 28 19:47:10 2009 UTC
# Line 112  C-            ocean : R_low = Bottom Line 112  C-            ocean : R_low = Bottom
112            CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid)            CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid)
113            CALL MNC_CW_SET_CITER(bathyFile, 2, -1, -1, -1, myThid)            CALL MNC_CW_SET_CITER(bathyFile, 2, -1, -1, -1, myThid)
114            CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid)            CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid)
115            CALL MNC_CW_RL_R('D',bathyFile,0,0,'bathy',R_low, myThid)            CALL MNC_CW_RS_R('D',bathyFile,0,0,'bathy',R_low, myThid)
116            CALL MNC_FILE_CLOSE_ALL_MATCHING(bathyFile, myThid)            CALL MNC_FILE_CLOSE_ALL_MATCHING(bathyFile, myThid)
117            CALL MNC_CW_DEL_VNAME('bathy', myThid)            CALL MNC_CW_DEL_VNAME('bathy', myThid)
118          ELSE          ELSE
Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22