/[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.9 by adcroft, Thu Jul 2 15:46:21 1998 UTC revision 1.10 by adcroft, Wed Jul 15 22:20:02 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)
74    C--    Reverse sign if necessary (We assume H>0)
75           DO bj = myByLo(myThid), myByHi(myThid)
76            DO bi = myBxLo(myThid), myBxHi(myThid)
77             DO j=1,sNy
78              DO i=1,sNx
79               H(i,j,bi,bj)=-H(i,j,bi,bj)
80              ENDDO
81             ENDDO
82            ENDDO
83           ENDDO
84        ENDIF        ENDIF
85        _EXCH_XY_R4(    H, myThid )        _EXCH_XY_R4(    H, myThid )
86  C  C
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22