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

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

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

revision 1.15 by jahn, Fri Jun 26 23:10:08 2009 UTC revision 1.16 by jmc, Tue Mar 16 00:08:27 2010 UTC
# Line 236  C--   Set vertical diffusivity contribut Line 236  C--   Set vertical diffusivity contribut
236  #endif  #endif
237    
238  C-    Apply mask to vertical diffusivity  C-    Apply mask to vertical diffusivity
239  C jmc: don't have the impression that masking is needed  C jmc: do not have the impression that masking is needed
240  C      but could be removed later if it's the case.  C      but could be removed later if it is the case.
241  c     DO j = 1-Oly, sNy+Oly  c     DO j = 1-Oly, sNy+Oly
242  c      DO i = 1-Olx, sNx+Olx  c      DO i = 1-Olx, sNx+Olx
243  c       KappaRTr(i,j,k) = maskUp(i,j)*KappaRTr(i,j,k)  c       KappaRTr(i,j,k) = maskUp(i,j)*KappaRTr(i,j,k)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22