/[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.73 by jmc, Fri Dec 11 04:31:31 2009 UTC revision 1.74 by jmc, Mon Dec 21 00:24:58 2009 UTC
# Line 146  C--   Save previous solution & Initialis Line 146  C--   Save previous solution & Initialis
146            DO i=1,sNx            DO i=1,sNx
147              tileEmP(bi,bj) = tileEmP(bi,bj)              tileEmP(bi,bj) = tileEmP(bi,bj)
148       &                     + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)       &                     + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)
149       &                                    *maskH(i,j,bi,bj)       &                                    *maskInC(i,j,bi,bj)
150            ENDDO            ENDDO
151           ENDDO           ENDDO
152          ENDIF          ENDIF
Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74
  ViewVC Help
Powered by ViewVC 1.1.22