/[MITgcm]/MITgcm/pkg/ptracers/ptracers_calc_diff.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_calc_diff.F

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

revision 1.7 by jahn, Fri Jun 26 23:10:10 2009 UTC revision 1.8 by jmc, Tue Mar 16 00:22:26 2010 UTC
# Line 144  C--   Set vertical diffusivity contribut Line 144  C--   Set vertical diffusivity contribut
144  #endif  #endif
145    
146  C-    Apply mask to vertical diffusivity  C-    Apply mask to vertical diffusivity
147  C jmc: don't have the impression that masking is needed  C jmc: do not have the impression that masking is needed
148  C      but could be removed later if it's the case.  C      but could be removed later if it is the case.
149          DO j = 1-Oly, sNy+Oly          DO j = 1-Oly, sNy+Oly
150           DO i = 1-Olx, sNx+Olx           DO i = 1-Olx, sNx+Olx
151            KappaRtr(i,j,iTr) = maskUp(i,j)*KappaRtr(i,j,iTr)            KappaRtr(i,j,iTr) = maskUp(i,j)*KappaRtr(i,j,iTr)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22