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

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

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

revision 1.24 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.25 by jmc, Thu Nov 8 16:36:12 2001 UTC
# Line 128  C       Note: if no fluid (continent) == Line 128  C       Note: if no fluid (continent) ==
128           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
129            tmpfld(I,J,bi,bj) = 0.            tmpfld(I,J,bi,bj) = 0.
130            ksurfC(I,J,bi,bj) = Nr+1            ksurfC(I,J,bi,bj) = Nr+1
131              maskH(i,j,bi,bj) = 0.
132            Ro_surf(I,J,bi,bj) = R_low(I,J,bi,bj)            Ro_surf(I,J,bi,bj) = R_low(I,J,bi,bj)
133            DO K=Nr,1,-1            DO K=Nr,1,-1
134             Ro_surf(I,J,bi,bj) = Ro_surf(I,J,bi,bj)             Ro_surf(I,J,bi,bj) = Ro_surf(I,J,bi,bj)
135       &                        + drF(k)*hFacC(I,J,K,bi,bj)       &                        + drF(k)*hFacC(I,J,K,bi,bj)
136             IF (hFacC(I,J,K,bi,bj).NE.0.) THEN             IF (hFacC(I,J,K,bi,bj).NE.0.) THEN
137              ksurfC(I,J,bi,bj) = k              ksurfC(I,J,bi,bj) = k
138                maskH(i,j,bi,bj) = 1.
139              tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1.              tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1.
140             ENDIF             ENDIF
141            ENDDO            ENDDO
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22