/[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.3 by cnh, Wed May 27 05:18:39 1998 UTC revision 1.4 by cnh, Wed May 27 21:01:47 1998 UTC
# Line 64  C                         into fluxUD. Line 64  C                         into fluxUD.
64  C--    Calculate tracer cell face open areas  C--    Calculate tracer cell face open areas
65        DO j=jMin,jMax        DO j=jMin,jMax
66         DO i=iMin,iMax         DO i=iMin,iMax
67          xA(i,j) = dyG(i,j,bi,bj)*dzF(k)*hFacW(i,j,k,bi,bj)          xA(i,j) = _dyG(i,j,bi,bj)*dzF(k)*_hFacW(i,j,k,bi,bj)
68          yA(i,j) = _dxG(i,j,bi,bj)*dzF(k)*hFacS(i,j,k,bi,bj)          yA(i,j) = _dxG(i,j,bi,bj)*dzF(k)*_hFacS(i,j,k,bi,bj)
69         ENDDO         ENDDO
70        ENDDO        ENDDO
71    
# Line 92  C--    Calculate mask for tracer cells Line 92  C--    Calculate mask for tracer cells
92        DO j=jMin,jMax        DO j=jMin,jMax
93         DO i=iMin,iMax         DO i=iMin,iMax
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,kM1,bi,bj).eq.0.) maskUp(i,j)=0.
98         ENDDO         ENDDO
99        ENDDO        ENDDO
100    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22