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

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

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

revision 1.4 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.5 by jmc, Wed Dec 17 05:05:06 2003 UTC
# Line 112  C--   Start to compute preconditioner ma Line 112  C--   Start to compute preconditioner ma
112       &     aW2d(I,J,bi,bj) + aW2d(I+1,J  ,bi,bj)       &     aW2d(I,J,bi,bj) + aW2d(I+1,J  ,bi,bj)
113       &    +aS2d(I,J,bi,bj) + aS2d(I  ,J+1,bi,bj)       &    +aS2d(I,J,bi,bj) + aS2d(I  ,J+1,bi,bj)
114       &    +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj)*       &    +freeSurfFac*cg2dNorm*recip_Bo(I,J,bi,bj)*
115       &     rA(I,J,bi,bj)/deltaTMom/deltaTMom       &     rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf
116       &    )       &    )
117           ENDDO           ENDDO
118          ENDDO          ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22