/[MITgcm]/MITgcm/pkg/ctrl/ctrl_depth_ini.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_depth_ini.F

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

revision 1.1 by heimbach, Wed Jun 7 01:45:43 2006 UTC revision 1.4 by jmc, Tue Apr 28 18:09:28 2009 UTC
# Line 112  C-- Line 112  C--
112        il=ilnblnk( xx_depth_file )        il=ilnblnk( xx_depth_file )
113        write(fnamedepth(1:80),'(2a,i10.10)')        write(fnamedepth(1:80),'(2a,i10.10)')
114       &     xx_depth_file(1:il),'.',optimcycle       &     xx_depth_file(1:il),'.',optimcycle
115        call active_read_xy_loc( fnamedepth, tmpfld2d, 1,        call active_read_xy( fnamedepth, tmpfld2d, 1,
116       &                     doglobalread, ladinit, optimcycle,       &                     doglobalread, ladinit, optimcycle,
117       &                     mythid, xx_depth_dummy )       &                     mythid, xx_depth_dummy )
118        do bj = jtlo,jthi        do bj = jtlo,jthi
# Line 128  C-- Line 128  C--
128    
129  c--   Update the tile edges.  c--   Update the tile edges.
130    
131        _EXCH_XYZ_R8( xx_r_low, myThid )        _EXCH_XY_RL( xx_r_low, myThid )
132    
133  #endif /* ALLOW_DEPTH_CONTROL */  #endif /* ALLOW_DEPTH_CONTROL */
134    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22