/[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.27 by jmc, Fri Nov 22 03:01:18 2002 UTC revision 1.28 by jmc, Tue Dec 10 02:55:47 2002 UTC
# Line 164  c         _BEGIN_MASTER( myThid ) Line 164  c         _BEGIN_MASTER( myThid )
164  c         CALL WRITE_FLD_XY_RS( 'topo_Z',' ',topoZ,0,myThid)  c         CALL WRITE_FLD_XY_RS( 'topo_Z',' ',topoZ,0,myThid)
165  c         _END_MASTER(myThid)  c         _END_MASTER(myThid)
166    
167            CALL INI_P_GROUND( topoZ, Ro_surf, myThid )            CALL INI_P_GROUND( selectFindRoSurf, topoZ,
168         O                       Ro_surf,
169         I                       myThid )
170    
171            _BARRIER            _BARRIER
172            _BEGIN_MASTER( myThid )            _BEGIN_MASTER( myThid )
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22