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

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

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

revision 1.39 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.40 by edhill, Tue Oct 28 22:57:59 2003 UTC
# Line 65  C--   Save previous solution & Initialis Line 65  C--   Save previous solution & Initialis
65         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
66          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
67           DO i=1-OLx,sNx+OLx           DO i=1-OLx,sNx+OLx
68  #ifdef INCLUDE_CD_CODE  #ifdef ALLOW_CD_CODE
69            etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj)            etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj)
70  #endif  #endif
71            cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)            cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22