/[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.38 by jmc, Sat Jan 16 23:06:34 2010 UTC revision 1.40 by jmc, Sun Jan 31 17:32:10 2010 UTC
# Line 343  C     dyU     :: U-point separation in Y Line 343  C     dyU     :: U-point separation in Y
343  C     drC     :: Cell center separation along Z axis ( units of r ).  C     drC     :: Cell center separation along Z axis ( units of r ).
344  C     drF     :: Cell face separation along Z axis ( units of r ).  C     drF     :: Cell face separation along Z axis ( units of r ).
345  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.)
346    C     rLowW   :: base of fluid column in r_unit at Western  edge location.
347    C     rLowS   :: base of fluid column in r_unit at Southern edge location.
348  C     Ro_surf :: surface reference (at rest) position, r_unit.  C     Ro_surf :: surface reference (at rest) position, r_unit.
349    C     rSurfW  :: surface reference position at Western  edge location [r_unit].
350    C     rSurfS  :: surface reference position at Southern edge location [r_unit].
351  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
352  C              "lopped" a cell is (dimensionless scale factor).  C              "lopped" a cell is (dimensionless scale factor).
353  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 356  C     maskInS :: South face 2-D Interior Line 360  C     maskInS :: South face 2-D Interior
360  C     maskC   :: cell Center land mask  C     maskC   :: cell Center land mask
361  C     maskW   :: West face land mask  C     maskW   :: West face land mask
362  C     maskS   :: South face land mask  C     maskS   :: South face land mask
363  C     recip_dxC   :: Recipricol of dxC  C     recip_dxC   :: Reciprocal of dxC
364  C     recip_dxG   :: Recipricol of dxG  C     recip_dxG   :: Reciprocal of dxG
365  C     recip_dxF   :: Recipricol of dxF  C     recip_dxF   :: Reciprocal of dxF
366  C     recip_dxV   :: Recipricol of dxV  C     recip_dxV   :: Reciprocal of dxV
367  C     recip_dyC   :: Recipricol of dxC  C     recip_dyC   :: Reciprocal of dxC
368  C     recip_dyG   :: Recipricol of dyG  C     recip_dyG   :: Reciprocal of dyG
369  C     recip_dyF   :: Recipricol of dyF  C     recip_dyF   :: Reciprocal of dyF
370  C     recip_dyU   :: Recipricol of dyU  C     recip_dyU   :: Reciprocal of dyU
371  C     recip_drC   :: Recipricol of drC  C     recip_drC   :: Reciprocal of drC
372  C     recip_drF   :: Recipricol of drF  C     recip_drF   :: Reciprocal of drF
373  C     recip_Rcol  :: Inverse of cell center column thickness (1/r_unit)  C     recip_Rcol  :: Inverse of cell center column thickness (1/r_unit)
374  C     recip_hFacC :: Inverse of cell open-depth f[X,Y,Z] ( dimensionless ).  C     recip_hFacC :: Inverse of cell open-depth f[X,Y,Z] ( dimensionless ).
375  C     recip_hFacW    rhFacC center, rhFacW west, rhFacS south.  C     recip_hFacW    rhFacC center, rhFacW west, rhFacS south.
# Line 398  C     fCoriCos  :: Coriolis Cos(phi) par Line 402  C     fCoriCos  :: Coriolis Cos(phi) par
402    
403        COMMON /GRID_RS/        COMMON /GRID_RS/
404       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,
405       &  R_low, Ro_surf,       &  R_low, rLowW, rLowS,
406         &  Ro_surf, rSurfW, rSurfS,
407       &  hFacC, hFacW, hFacS,       &  hFacC, hFacW, hFacS,
408       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,
409       &  recip_dyC,recip_dyF,recip_dyG,recip_dyU,       &  recip_dyC,recip_dyF,recip_dyG,recip_dyU,
# Line 408  C     fCoriCos  :: Coriolis Cos(phi) par Line 413  C     fCoriCos  :: Coriolis Cos(phi) par
413       &  maskInC, maskInW, maskInS,       &  maskInC, maskInW, maskInS,
414       &  maskC, maskW, maskS,       &  maskC, maskW, maskS,
415       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,
416         &  drC, drF, recip_drC, recip_drF, rC, rF,
417       &  tanPhiAtU, tanPhiAtV, angleCosC, angleSinC,       &  tanPhiAtU, tanPhiAtV, angleCosC, angleSinC,
      &  drC,drF,recip_drC,recip_drF,rC,rF,  
418       &  fCori, fCoriG, fCoriCos       &  fCori, fCoriG, fCoriCos
419  c    & , maskH  c    & , maskH
420        _RS dxC            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dxC            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 421  c    & , maskH Line 426  c    & , maskH
426        _RS dyG            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dyG            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
427        _RS dyU            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dyU            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
428        _RS R_low          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS R_low          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
429          _RS rLowW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
430          _RS rLowS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
431        _RS Ro_surf        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS Ro_surf        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
432          _RS rSurfW         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
433          _RS rSurfS         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
434        _RS hFacC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS hFacC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
435        _RS hFacW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS hFacW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
436        _RS hFacS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS hFacS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
# Line 456  c     _RS maskH          (1-OLx:sNx+OLx, Line 465  c     _RS maskH          (1-OLx:sNx+OLx,
465        _RS maskC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS maskC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
466        _RS maskW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS maskW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
467        _RS maskS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RS maskS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
       _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS angleCosC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS angleSinC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
468        _RS drC            (Nr)        _RS drC            (Nr)
469        _RS drF            (Nr)        _RS drF            (Nr)
470        _RS recip_drC      (Nr)        _RS recip_drC      (Nr)
471        _RS recip_drF      (Nr)        _RS recip_drF      (Nr)
472        _RS rC             (Nr)        _RS rC             (Nr)
473        _RS rF             (Nr+1)        _RS rF             (Nr+1)
474          _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
475          _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
476          _RS angleCosC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
477          _RS angleSinC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
478        _RS fCori          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCori          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
479        _RS fCoriG         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCoriG         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
480        _RS fCoriCos       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCoriCos       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
481    
 #ifdef ALLOW_NONHYDROSTATIC  
 C--   COMMON /GRID_NH_RS/ RS grid defining variables for Non-Hydrostatic code.  
 C     rLowW   :: base of fluid column in r_unit at Western  edge location.  
 C     rLowS   :: base of fluid column in r_unit at Southern edge location.  
 C     rSurfW  :: surface reference position at Western  edge location [r_unit].  
 C     rSurfS  :: surface reference position at Southern edge location [r_unit].  
       COMMON /GRID_NH_RS/  
      &  rLowW, rLowS, rSurfW, rSurfS  
       _RS rLowW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS rLowS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS rSurfW         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS rSurfS         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
 #endif /* ALLOW_NONHYDROSTATIC */  
   
482  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
483  C--   COMMON /GRID_DEPTH_CTRL/ grid defining variables for Depth Control code.  C--   COMMON /GRID_DEPTH_CTRL/ grid defining variables for Depth Control code.
484  C     xx_r_low  :: in TAF-sense active replacement of R_low  C     xx_r_low  :: in TAF-sense active replacement of R_low
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22