/[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.29 by cnh, Sun Feb 4 14:38:47 2001 UTC revision 1.30 by jmc, Tue Feb 20 15:06:21 2001 UTC
# Line 63  C     aS2d: integral in Z Ay/dY Line 63  C     aS2d: integral in Z Ay/dY
63             faceArea = _dyG(I,J,bi,bj)*drF(K)             faceArea = _dyG(I,J,bi,bj)*drF(K)
64       &               *_hFacW(I,J,K,bi,bj)       &               *_hFacW(I,J,K,bi,bj)
65             aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj) +             aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj) +
66         &      implicSurfPress*implicDiv2DFlow*
67       &      gBaro*faceArea*recip_dxC(I,J,bi,bj)       &      gBaro*faceArea*recip_dxC(I,J,bi,bj)
68             faceArea = _dxG(I,J,bi,bj)*drF(K)             faceArea = _dxG(I,J,bi,bj)*drF(K)
69       &               *_hFacS(I,J,K,bi,bj)       &               *_hFacS(I,J,K,bi,bj)
70             aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) +             aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) +
71         &      implicSurfPress*implicDiv2DFlow*
72       &      gBaro*faceArea*recip_dyC(I,J,bi,bj)       &      gBaro*faceArea*recip_dyC(I,J,bi,bj)
73            ENDDO            ENDDO
74           ENDDO           ENDDO
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22