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

Diff of /MITgcm/model/src/cg2d.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:40 1998 UTC revision 1.3 by cnh, Thu May 21 18:26:36 1998 UTC
# Line 164  C--    conjugate direction vector "s". Line 164  C--    conjugate direction vector "s".
164           DO J=1,sNy           DO J=1,sNy
165            DO I=1,sNx            DO I=1,sNx
166             cg2d_q(I,J,bi,bj) =             cg2d_q(I,J,bi,bj) =
167  C    &      pW(I  ,J  ,bi,bj)*cg2d_r(I-1,J  ,bi,bj)       &      pC(I  ,J  ,bi,bj)*cg2d_r(I  ,J  ,bi,bj)
168  C    &     +pW(I+1,J  ,bi,bj)*cg2d_r(I+1,J  ,bi,bj)       &     +pW(I  ,J  ,bi,bj)*cg2d_r(I-1,J  ,bi,bj)
169  C    &     +pS(I  ,J  ,bi,bj)*cg2d_r(I  ,J-1,bi,bj)       &     +pW(I+1,J  ,bi,bj)*cg2d_r(I+1,J  ,bi,bj)
170  C    &     +pS(I  ,J+1,bi,bj)*cg2d_r(I  ,J+1,bi,bj)       &     +pS(I  ,J  ,bi,bj)*cg2d_r(I  ,J-1,bi,bj)
171  C    &     +pC(I  ,J  ,bi,bj)*cg2d_r(I  ,J  ,bi,bj)       &     +pS(I  ,J+1,bi,bj)*cg2d_r(I  ,J+1,bi,bj)
172       &                        cg2d_r(I  ,J  ,bi,bj)  C    &                        cg2d_r(I  ,J  ,bi,bj)
173             etaN = etaN             etaN = etaN
174       &     +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj)       &     +cg2d_q(I,J,bi,bj)*cg2d_r(I,J,bi,bj)
175            ENDDO            ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22