/[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.11 by cnh, Fri Nov 6 22:44:47 1998 UTC revision 1.12 by adcroft, Tue Dec 8 18:01:52 1998 UTC
# Line 74  C           Base of domain is below bott Line 74  C           Base of domain is below bott
74             ELSE             ELSE
75  C           Base of domain is in this cell  C           Base of domain is in this cell
76  C           Set hFac to the fraction of the cell that is open.  C           Set hFac to the fraction of the cell that is open.
77  C           hFacC(I,J,K,bi,bj) = (rF(K)*rkFac-H(I,J,bi,bj)*rkFac)*recip_drF(K)              hFacC(I,J,K,bi,bj) = (rF(K)*rkFac-H(I,J,bi,bj)*rkFac)*recip_drF(K)
 CcnhDebugStarts  
 C Impose full-step  
             hFacC(I,J,K,bi,bj) = 1.  
 CCnhDebugEnds  
78             ENDIF             ENDIF
79  C Impose minimum fraction  C Impose minimum fraction
80             IF (hFacC(I,J,K,bi,bj).LT.hFacMin) THEN             IF (hFacC(I,J,K,bi,bj).LT.hFacMin) THEN
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22