/[MITgcm]/MITgcm/model/inc/SOLVE_FOR_PRESSURE3D.h
ViewVC logotype

Diff of /MITgcm/model/inc/SOLVE_FOR_PRESSURE3D.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by edhill, Fri Oct 31 20:35:32 2003 UTC revision 1.5 by jmc, Tue Nov 8 01:54:53 2005 UTC
# Line 14  C     \ev Line 14  C     \ev
14  CEOP  CEOP
15    
16  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
17        COMMON / SFP3D_COMMON_R8 / cg3d_x, cg3d_b  
18        _RL  cg3d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)  C--   COMMON /SFP3D_COMMON_R/ variables (RL) used by 3-D pressure solver
19    C     cg3d_x  :: Solution vector of the 3-D solver equation A.x=B
20    C     cg3d_b  :: Right Hand side vector of the 3-D solver equation A.x=B
21    
22          COMMON /SFP3D_COMMON_R/
23         &                        cg3d_b
24    c    &                        cg3d_x, cg3d_b
25    c     _RL  cg3d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
26        _RL  cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)        _RL  cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
27    
28  #endif /* ALLOW_NONHYDROSTATIC */  #endif /* ALLOW_NONHYDROSTATIC */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22