Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |