/[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.38 by jmc, Tue Oct 17 18:52:34 2006 UTC revision 1.39 by edhill, Sun Nov 5 18:36:05 2006 UTC
# Line 40  C     === Global variables === Line 40  C     === Global variables ===
40  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
41  # include "SHELFICE.h"  # include "SHELFICE.h"
42  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
43    #ifdef ALLOW_MNC
44    #include "MNC_PARAMS.h"
45    #endif
46    
47  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
48  C     == Routine arguments ==  C     == Routine arguments ==
# Line 106  C-            ocean : R_low = Bottom Line 109  C-            ocean : R_low = Bottom
109          ENDDO          ENDDO
110         ENDDO         ENDDO
111        ELSE        ELSE
112    
113    #ifdef ALLOW_MNC
114            IF (useMNC .AND. mnc_read_bathy) THEN
115              CALL MNC_CW_ADD_VNAME('bathy', 'Cen_xy_Hn__-__-', 3,4, myThid)
116              CALL MNC_FILE_CLOSE_ALL_MATCHING(bathyFile, myThid)
117              CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid)
118              CALL MNC_CW_SET_CITER(bathyFile, 2, -1, -1, -1, myThid)
119              CALL MNC_CW_SET_UDIM(bathyFile, 1, myThid)
120              CALL MNC_CW_RL_R('D',bathyFile,0,0,'bathy',R_low, myThid)
121              CALL MNC_FILE_CLOSE_ALL_MATCHING(bathyFile, myThid)
122              CALL MNC_CW_DEL_VNAME('bathy', myThid)
123            ELSE
124    #endif /*  ALLOW_MNC  */
125  C Read the bathymetry using the mid-level I/O package read_write_rec  C Read the bathymetry using the mid-level I/O package read_write_rec
126  C The 0 is the "iteration" argument. The 1 is the record number.  C The 0 is the "iteration" argument. The 1 is the record number.
127          CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid )            CALL READ_REC_XY_RS( bathyFile, R_low, 1, 0, myThid )
128  C Read the bathymetry using the mid-level I/O package read_write_fld  C Read the bathymetry using the mid-level I/O package read_write_fld
129  C The 0 is the "iteration" argument. The ' ' is an empty suffix  C The 0 is the "iteration" argument. The ' ' is an empty suffix
130  c       CALL READ_FLD_XY_RS( bathyFile, ' ', R_low, 0, myThid )  c       CALL READ_FLD_XY_RS( bathyFile, ' ', R_low, 0, myThid )
131  C Read the bathymetry using the low-level I/O package  C Read the bathymetry using the low-level I/O package
132  c       CALL MDSREADFIELD( bathyFile, readBinaryPrec,  c       CALL MDSREADFIELD( bathyFile, readBinaryPrec,
133  c    &                     'RS', 1, R_low, 1, myThid )  c    &                     'RS', 1, R_low, 1, myThid )
134    
135    #ifdef ALLOW_MNC
136            ENDIF
137    #endif /*  ALLOW_MNC  */
138    
139    
140        ENDIF        ENDIF
141  C- end setup R_low in the interior  C- end setup R_low in the interior
142    
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22