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

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

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

revision 1.14 by cnh, Tue Feb 6 04:47:51 2001 UTC revision 1.15 by jmc, Wed Feb 14 22:51:27 2001 UTC
# Line 71  C--    Where statically unstable, mix th Line 71  C--    Where statically unstable, mix th
71            theta(i,j,k  ,bi,bj) = tMix(i,j)/dSum(i,j)            theta(i,j,k  ,bi,bj) = tMix(i,j)/dSum(i,j)
72            salt(i,j,k-1,bi,bj)  = sMix(i,j)/dSum(i,j)            salt(i,j,k-1,bi,bj)  = sMix(i,j)/dSum(i,j)
73            salt(i,j,k  ,bi,bj)  = sMix(i,j)/dSum(i,j)            salt(i,j,k  ,bi,bj)  = sMix(i,j)/dSum(i,j)
74  #ifdef INCLUDE_CONVECT_CALL            ConvectCount(i,j,k) = ConvectCount(i,j,k) + 1.
 C         ConvectCount(i,j,k) = ConvectCount(i,j,k) + 1.  
 #endif  
75           ENDIF           ENDIF
76          ENDDO          ENDDO
77         ENDDO         ENDDO
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22