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

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

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

revision 1.33 by jmc, Tue Dec 5 05:18:03 2006 UTC revision 1.34 by jmc, Tue Aug 12 22:24:40 2008 UTC
# Line 299  CEOP Line 299  CEOP
299  C     Macros that override/modify standard definitions  C     Macros that override/modify standard definitions
300  #include "GRID_MACROS.h"  #include "GRID_MACROS.h"
301    
 C  
302  C--   COMMON /GRID_R/ REAL valued grid defining variables.  C--   COMMON /GRID_R/ REAL valued grid defining variables.
303  C     dxC    - Cell center separation in X across western cell wall (m)  C     dxC    - Cell center separation in X across western cell wall (m)
304  C     dxG    - Cell face separation in X along southern cell wall (m)  C     dxG    - Cell face separation in X along southern cell wall (m)
# Line 315  C     Rcolumn  -Total thickness (in r_un Line 314  C     Rcolumn  -Total thickness (in r_un
314  C     R_low  - base of fluid in r_unit (Depth(m) / Pressure(Pa) at top Atmos.)  C     R_low  - base of fluid in r_unit (Depth(m) / Pressure(Pa) at top Atmos.)
315  C     xx_r_low - in TAF-sense active replacement of R_low  C     xx_r_low - in TAF-sense active replacement of R_low
316  C     Ro_surf- surface reference (at rest) position, r_unit.  C     Ro_surf- surface reference (at rest) position, r_unit.
 C     klowC  - index of the lowest "wet cell" (2D)  
317  C     hFac   - Fraction of cell in vertical which is open i.e how  C     hFac   - Fraction of cell in vertical which is open i.e how
318  C              "lopped" a cell is (dimensionless scale factor).  C              "lopped" a cell is (dimensionless scale factor).
319  C              Note: The code needs terms like MIN(hFac,hFac(I+1))  C              Note: The code needs terms like MIN(hFac,hFac(I+1))
# Line 376  C                  at cell center: alpha Line 374  C                  at cell center: alpha
374  C     fCori     :: Coriolis parameter at grid Center point  C     fCori     :: Coriolis parameter at grid Center point
375  C     fCoriG    :: Coriolis parameter at grid Corner point  C     fCoriG    :: Coriolis parameter at grid Corner point
376  C     fCoriCos  :: Coriolis Cos(phi) parameter at grid Center point (for NH)  C     fCoriCos  :: Coriolis Cos(phi) parameter at grid Center point (for NH)
       COMMON /GRID_I/ klowC  
       INTEGER klowC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
377    
378        COMMON /GRID_R/        COMMON /GRID_R/
379       &  cosFacU, cosFacV, sqCosFacU, sqCosFacV,       &  cosFacU, cosFacV, sqCosFacU, sqCosFacV,
# Line 475  C     fCoriCos  :: Coriolis Cos(phi) par Line 471  C     fCoriCos  :: Coriolis Cos(phi) par
471        _RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
472        _RS fCoriCos(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCoriCos(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
473    
474    C--   COMMON /GRID_I/ INTEGER valued grid defining variables.
475    C     kSurfC  :: vertical index of the surface tracer cell
476    C     kSurfW  :: vertical index of the surface U point
477    C     kSurfS  :: vertical index of the surface V point
478    C     kLowC   :: index of the r-lowest "wet cell" (2D)
479    C IMPORTANT: ksurfC,W,S = Nr+1 and kLowC = 0 where the fluid column
480    C            is empty (continent)
481          COMMON /GRID_I/
482         &  kSurfC, kSurfW, kSurfS,
483         &  kLowC
484          INTEGER kSurfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
485          INTEGER kSurfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
486          INTEGER kSurfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
487          INTEGER kLowC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
488    
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22