/[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.2 by cnh, Fri Apr 24 02:05:39 1998 UTC revision 1.3 by cnh, Wed May 27 05:18:39 1998 UTC
# Line 65  C--    Calculate tracer cell face open a Line 65  C--    Calculate tracer cell face open a
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    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22