/[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.5 by adcroft, Tue Jun 9 15:58:36 1998 UTC revision 1.6 by cnh, Wed Oct 28 03:11:38 1998 UTC
# Line 23  C     myThid - Number of this instance o Line 23  C     myThid - Number of this instance o
23  CEndOfInterface  CEndOfInterface
24    
25  C     Local variables  C     Local variables
26        INTEGER i,j,bi,bj        INTEGER i,j,k,bi,bj
27    
28  #ifdef ALLOW_CD  #ifdef ALLOW_CD
29  C--   Save previous solution.  C--   Save previous solution.
# Line 42  C--   Find the surface pressure using a Line 42  C--   Find the surface pressure using a
42  C--   gradient solver.  C--   gradient solver.
43  C     see CG2D.h for the interface to this routine.  C     see CG2D.h for the interface to this routine.
44        CALL CG2D(        CALL CG2D(
45         I           cg2d_b,
46         U           cg2d_x,
47       I           myThid )       I           myThid )
48    
 C--   Solve for a three-dimensional pressure term (NH or IGW or both ).  
 C     see CG3D.h for the interface to this routine.  
 C*P*  CALL CG3D(  
 C*P* I           myThid )  
49    
50        RETURN        RETURN
51        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22