/[MITgcm]/MITgcm/verification/aim.5l_Equatorial_Channel/code/ini_depths.F
ViewVC logotype

Diff of /MITgcm/verification/aim.5l_Equatorial_Channel/code/ini_depths.F

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

revision 1.7 by jmc, Fri Nov 22 03:31:51 2002 UTC revision 1.8 by jmc, Tue Dec 10 03:05:33 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.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22