/[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.25 by jmc, Thu Nov 8 16:36:12 2001 UTC revision 1.26 by mlosch, Wed Sep 18 16:38:02 2002 UTC
# Line 139  C       Note: if no fluid (continent) == Line 139  C       Note: if no fluid (continent) ==
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
142              kLowC(I,J,bi,bj) = 0
143              DO K= 1, Nr
144               IF (hFacC(I,J,K,bi,bj).NE.0) THEN
145                  kLowC(I,J,bi,bj) = K
146               ENDIF
147              ENDDO
148           ENDDO           ENDDO
149          ENDDO          ENDDO
150  C - end bi,bj loops.  C - end bi,bj loops.
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22