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

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

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

Revision 1.2.20.1 - (show annotations) (download)
Thu Oct 2 18:10:45 2003 UTC (20 years, 7 months ago) by edhill
Branch: branch-genmake2
Changes since 1.2: +4 -2 lines
File MIME type: text/plain 
 o included PACKAGES_CONFIG.h in all files where the ALLOW_${PKG_NAME}
     defines are used
 o added comments where IF ( use${PKG_NAME} ) statements will probably
     be needed -- or need to be edited
1 C $Header: /u/u3/gcmpack/MITgcm/model/inc/SOLVE_FOR_PRESSURE3D.h,v 1.2 2001/09/21 15:13:31 cnh Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5
6 CBOP
7 C !ROUTINE: SOLVE_FOR_PRESSURE3D.h
8 C !INTERFACE:
9 C include SOLVE_FOR_PRESSURE3D.h
10 C !DESCRIPTION: \bv
11 C *==========================================================*
12 C | SOLVE_FOR_PRESSURE3D.h
13 C | o Globals used by Fortran 3d pressure solver routine
14 C *==========================================================*
15 C \ev
16 CEOP
17
18 #ifdef ALLOW_NONHYDROSTATIC
19 COMMON / SFP3D_COMMON_R8 / cg3d_x, cg3d_b
20 _RL cg3d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
21 _RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
22 #endif /* ALLOW_NONHYDROSTATIC */
  ViewVC Help
Powered by ViewVC 1.1.22