/[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.4 by cnh, Sat Aug 22 17:51:08 1998 UTC revision 1.5 by cnh, Mon Aug 24 02:25:01 1998 UTC
# Line 75  C Impose minimum fraction Line 75  C Impose minimum fraction
75              ENDIF              ENDIF
76             ENDIF             ENDIF
77  C Impose minimum size (dimensional)  C Impose minimum size (dimensional)
78             IF (drF(k)*hFacC(I,J,K,bi,bj).LT.hFacMinDz) THEN             IF (drF(k)*hFacC(I,J,K,bi,bj).LT.hFacMinDr) THEN
79              IF (drF(k)*hFacC(I,J,K,bi,bj).LT.hFacMinDz*0.5) THEN              IF (drF(k)*hFacC(I,J,K,bi,bj).LT.hFacMinDr*0.5) THEN
80               hFacC(I,J,K,bi,bj)=0.               hFacC(I,J,K,bi,bj)=0.
81              ELSE              ELSE
82               hFacC(I,J,K,bi,bj)=hFacMinDz*recip_drF(k)               hFacC(I,J,K,bi,bj)=hFacMinDr*recip_drF(k)
83              ENDIF              ENDIF
84             ENDIF             ENDIF
85            ENDDO            ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22