/[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.8 by jmc, Tue Dec 10 03:05:33 2002 UTC revision 1.9 by jmc, Mon Mar 17 16:42:07 2003 UTC
# Line 46  CEndOfInterface Line 46  CEndOfInterface
46  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
47  C     == Local variables ==  C     == Local variables ==
48  C     iG, jG - Global coordinate index  C     iG, jG - Global coordinate index
49  C     bi,bj  - Loop counters  C     bi,bj  - Tile indices
50  C     I,J,K  C     I,J,K  - Loop counters
51  C     oldPrec - Temporary used in controlling binary input dataset precision  C     oldPrec - Temporary used in controlling binary input dataset precision
52  C     msgBuf    - Informational/error meesage buffer  C     msgBuf    - Informational/error meesage buffer
53        INTEGER iG, jG        INTEGER iG, jG
# 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( selectFindRoSurf, topoZ,            CALL INI_P_GROUND( 2, topoZ,
168       O                       Ro_surf,       O                       Ro_surf,
169       I                       myThid )       I                       myThid )
170    
# Line 175  c         _END_MASTER(myThid) Line 175  c         _END_MASTER(myThid)
175    
176          ELSE          ELSE
177  C----  C----
178  C   Direct Transfer to Ro_surf :  C   Direct Transfer to Ro_surf (e.g., to specify upper ocean boundary
179    C    below an ice-shelf - NOTE - actually not yet implemented )
180            DO bj = myByLo(myThid), myByHi(myThid)            DO bj = myByLo(myThid), myByHi(myThid)
181             DO bi = myBxLo(myThid), myBxHi(myThid)             DO bi = myBxLo(myThid), myBxHi(myThid)
182              DO j=1,sNy              DO j=1,sNy
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22