/[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.2 by adcroft, Tue Feb 26 20:34:14 2002 UTC revision 1.3 by adcroft, Thu Aug 15 17:25:31 2002 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) .GT. rhok(i,j) ) THEN       &  .AND. (rhokm1(i,j)-rhok(i,j))*rKfac*gravitySign .GT. 0.
62         &      ) THEN
63    
64  C      Where statically unstable, mix the tracers conserving volume  C      Where statically unstable, mix the tracers conserving volume
65            d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1)            d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22