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

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

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

revision 1.3 by adcroft, Thu Aug 15 17:25:31 2002 UTC revision 1.4 by jmc, Wed Oct 15 22:55:01 2003 UTC
# Line 58  CEOP Line 58  CEOP
58         DO i=1-Olx,sNx+Olx         DO i=1-Olx,sNx+Olx
59           IF ( _hFacC(i,j,k-1,bi,bj)           IF ( _hFacC(i,j,k-1,bi,bj)
60       &       *_hFacC(i,j,k,bi,bj) .GT. 0.       &       *_hFacC(i,j,k,bi,bj) .GT. 0.
61       &  .AND. (rhokm1(i,j)-rhok(i,j))*rKfac*gravitySign .GT. 0.       &  .AND. (rhokm1(i,j)-rhok(i,j))*rKfac*gravitySign .LT. 0.
62       &      ) THEN       &      ) THEN
63    
64  C      Where statically unstable, mix the tracers conserving volume  C      Where statically unstable, mix the tracers conserving volume
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22