/[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.52 by ce107, Thu Dec 22 01:08:57 2005 UTC revision 1.53 by jmc, Thu Feb 23 20:55:49 2006 UTC
# Line 172  C--   Add source term arising from w=d/d Line 172  C--   Add source term arising from w=d/d
172        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
173         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
174  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
175          IF ( nonHydrostatic .AND. zeroPsNH ) THEN          IF ( use3Dsolver .AND. zeroPsNH ) THEN
176           DO j=1,sNy           DO j=1,sNy
177            DO i=1,sNx            DO i=1,sNx
178             ks = ksurfC(i,j,bi,bj)             ks = ksurfC(i,j,bi,bj)
# Line 186  C--   Add source term arising from w=d/d Line 186  C--   Add source term arising from w=d/d
186             ENDIF             ENDIF
187            ENDDO            ENDDO
188           ENDDO           ENDDO
189          ELSEIF ( nonHydrostatic ) THEN          ELSEIF ( use3Dsolver ) THEN
190           DO j=1,sNy           DO j=1,sNy
191            DO i=1,sNx            DO i=1,sNx
192             ks = ksurfC(i,j,bi,bj)             ks = ksurfC(i,j,bi,bj)
# Line 313  C--   Transfert the 2D-solution to "etaN Line 313  C--   Transfert the 2D-solution to "etaN
313        ENDDO        ENDDO
314    
315  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
316        IF ( nonHydrostatic ) THEN        IF ( use3Dsolver ) THEN
317    
318  C--   Solve for a three-dimensional pressure term (NH or IGW or both ).  C--   Solve for a three-dimensional pressure term (NH or IGW or both ).
319  C     see CG3D.h for the interface to this routine.  C     see CG3D.h for the interface to this routine.
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53
  ViewVC Help
Powered by ViewVC 1.1.22