/[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.10 by adcroft, Wed Jul 15 22:20:02 1998 UTC revision 1.11 by cnh, Thu Jul 16 16:58:08 1998 UTC
# Line 71  C          Island Line 71  C          Island
71         _BEGIN_MASTER( myThid )         _BEGIN_MASTER( myThid )
72         CALL READ_FLD_XY_RS( bathyFile, ' ', H, 0, myThid )         CALL READ_FLD_XY_RS( bathyFile, ' ', H, 0, myThid )
73         _END_MASTER(myThid)         _END_MASTER(myThid)
 C--    Reverse sign if necessary (We assume H>0)  
        DO bj = myByLo(myThid), myByHi(myThid)  
         DO bi = myBxLo(myThid), myBxHi(myThid)  
          DO j=1,sNy  
           DO i=1,sNx  
            H(i,j,bi,bj)=-H(i,j,bi,bj)  
           ENDDO  
          ENDDO  
         ENDDO  
        ENDDO  
74        ENDIF        ENDIF
75        _EXCH_XY_R4(    H, myThid )        _EXCH_XY_R4(    H, myThid )
76  C  C
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22