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

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

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

revision 1.9 by cnh, Wed May 27 05:57:02 1998 UTC revision 1.10 by cnh, Wed May 27 21:01:47 1998 UTC
# Line 54  C     aS2d: integral in Z Ay/dY Line 54  C     aS2d: integral in Z Ay/dY
54          DO K=1,Nz          DO K=1,Nz
55           DO J=1,sNy           DO J=1,sNy
56            DO I=1,sNx            DO I=1,sNx
57             faceArea = _dyG(I,J,bi,bj)*dzF(K)*HFacW(I,J,K,bi,bj)             faceArea = _dyG(I,J,bi,bj)*dzF(K)*_hFacW(I,J,K,bi,bj)
58             aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj) +             aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj) +
59       &      gBaro*faceArea*rDxC(I,J,bi,bj)       &      gBaro*faceArea*_rdxC(I,J,bi,bj)
60             faceArea = _dxG(I,J,bi,bj)*dzF(K)*HFacS(I,J,K,bi,bj)             faceArea = _dxG(I,J,bi,bj)*dzF(K)*_hFacS(I,J,K,bi,bj)
61             aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) +             aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) +
62       &      gBaro*faceArea*rDyC(I,J,bi,bj)       &      gBaro*faceArea*rDyC(I,J,bi,bj)
63            ENDDO            ENDDO
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22