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

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

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

revision 1.4 by cnh, Wed May 27 21:01:47 1998 UTC revision 1.5 by adcroft, Mon Jun 8 18:45:28 1998 UTC
# Line 94  C--    Calculate mask for tracer cells Line 94  C--    Calculate mask for tracer cells
94          maskC(i,j) = 1.          maskC(i,j) = 1.
95          if (_hFacC(i,j,k,bi,bj).eq.0.) maskC(i,j)=0.          if (_hFacC(i,j,k,bi,bj).eq.0.) maskC(i,j)=0.
96          maskUp(i,j) = 1.          maskUp(i,j) = 1.
97          if (_hFacC(i,j,kM1,bi,bj).eq.0.) maskUp(i,j)=0.          if (_hFacC(i,j,k,bi,bj).eq.0.) maskUp(i,j)=0.
98         ENDDO         ENDDO
99        ENDDO        ENDDO
100    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22