/[MITgcm]/MITgcm/model/src/update_masks_etc.F
ViewVC logotype

Diff of /MITgcm/model/src/update_masks_etc.F

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

revision 1.6 by jmc, Wed Jun 8 01:21:14 2011 UTC revision 1.7 by mlosch, Mon Mar 19 14:32:47 2012 UTC
# Line 121  C-  Re-calculate lower-R Boundary positi Line 121  C-  Re-calculate lower-R Boundary positi
121         DO bi=myBxLo(myThid), myBxHi(myThid)         DO bi=myBxLo(myThid), myBxHi(myThid)
122          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
123           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
124            R_low(I,J,bi,bj) = rF(1)            R_low(i,j,bi,bj) = rF(1)
125            DO K=Nr,1,-1           ENDDO
126            ENDDO
127            DO K=Nr,1,-1
128             DO J=1-Oly,sNy+Oly
129              DO I=1-Olx,sNx+Olx
130             R_low(I,J,bi,bj) = R_low(I,J,bi,bj)             R_low(I,J,bi,bj) = R_low(I,J,bi,bj)
131       &                      - drF(k)*hFacC(I,J,K,bi,bj)       &                      - drF(K)*hFacC(I,J,K,bi,bj)
132            ENDDO            ENDDO
133           ENDDO           ENDDO
134          ENDDO          ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22