/[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.1 - (show annotations) (download)
Fri Jun 29 17:14:49 2001 UTC (22 years, 10 months ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint40pre3, checkpoint40pre1, checkpoint40pre7, checkpoint40pre6, checkpoint40pre9, checkpoint40pre8, checkpoint40pre2, checkpoint40pre4, checkpoint40pre5, checkpoint40
File MIME type: text/plain 
Moved cg3d_x into DYNVARS.h and renamed it to phi_nh.
 - cg3d and cg2d now look more similar
 - output formatted to fit Chris's tastes (I think)
1 C $Header: /u/gcmpack/models/MITgcmUV/model/inc/SOLVE_FOR_PRESSURE.h,v 1.2 2001/05/29 14:01:36 adcroft Exp $
2 C $Name: $
3 C
4 C /==========================================================\
5 C | SOLVE_FOR_PRESSURE3D.h |
6 C | o Globals used by Fortran 3d pressure solver routine |
7 C \==========================================================/
8
9 #ifdef ALLOW_NONHYDROSTATIC
10 COMMON / SFP3D_COMMON_R8 / cg3d_x, cg3d_b
11 _RL cg3d_x(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
12 _RL cg3d_b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
13 #endif /* ALLOW_NONHYDROSTATIC */
  ViewVC Help
Powered by ViewVC 1.1.22