/[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.15 by cnh, Sun Feb 4 14:38:48 2001 UTC revision 1.16 by jmc, Tue Feb 20 15:08:34 2001 UTC
# Line 37  C     Local variables Line 37  C     Local variables
37        _RS uf(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RS uf(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
38        _RS vf(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RS vf(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
39    
 #ifndef DIVG_IN_DYNAMICS  
40        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
41         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
42          DO K=Nr,1,-1          DO K=Nr,1,-1
# Line 56  C     Local variables Line 55  C     Local variables
55          ENDDO          ENDDO
56         ENDDO         ENDDO
57        ENDDO        ENDDO
 #endif  
58    
59  #ifdef INCLUDE_CD_CODE  #ifdef INCLUDE_CD_CODE
60  C--   Save previous solution.  C--   Save previous solution.
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22