/[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.60 by heimbach, Fri Jun 1 16:42:16 2007 UTC revision 1.61 by jmc, Mon Aug 27 13:18:31 2007 UTC
# Line 62  C     == Local variables == Line 62  C     == Local variables ==
62        _RL sumEmP, tileEmP        _RL sumEmP, tileEmP
63        LOGICAL putPmEinXvector        LOGICAL putPmEinXvector
64        INTEGER numIters, ks        INTEGER numIters, ks
65          CHARACTER*10 sufx
66        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
67  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
68        INTEGER kp1        INTEGER kp1
# Line 264  C-    end bi,bj loops Line 265  C-    end bi,bj loops
265       &                        myThid)       &                        myThid)
266        ENDIF        ENDIF
267  #endif  #endif
268          IF ( DIFFERENT_MULTIPLE(diagFreq, myTime, deltaTClock) ) THEN
269           WRITE(sufx,'(I10.10)') myIter
270           CALL WRITE_FLD_XY_RS( 'cg2d_b.', sufx, cg2d_b, myIter, myThid )
271          ENDIF
272    
273  C--   Find the surface pressure using a two-dimensional conjugate  C--   Find the surface pressure using a two-dimensional conjugate
274  C--   gradient solver.  C--   gradient solver.
Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61
  ViewVC Help
Powered by ViewVC 1.1.22