/[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.25 by dimitri, Wed Nov 12 00:02:44 2003 UTC revision 1.28 by jmc, Wed Jun 22 00:22:31 2005 UTC
# Line 323  C                    hFacW, hFacE, ... h Line 323  C                    hFacW, hFacE, ... h
323  C     gravitySign - indicates the direction of gravity relative to R direction  C     gravitySign - indicates the direction of gravity relative to R direction
324  C                  (= -1 for R=Z (Z increases upward, -gravity direction  )  C                  (= -1 for R=Z (Z increases upward, -gravity direction  )
325  C                  (= +1 for R=P (P increases downward, +gravity direction)  C                  (= +1 for R=P (P increases downward, +gravity direction)
326  C     rkFac     - Vertical coordinate to vertical index orientation.  C     rkSign - Vertical coordinate to vertical index orientation.
327  C                 ( -1 same orientation, 1 opposite orientation )  C                 ( +1 same orientation, -1 opposite orientation )
328  C     maskH  - cell Center full-column mask (= 2D mask)  C     maskH  - cell Center full-column mask (= 2D mask)
329  C     maskC  - cell Center land mask  C     maskC  - cell Center land mask
330  C     maskW  - West face land mask  C     maskW  - West face land mask
# Line 364  C     tanPhiAtU - tan of the latitude at Line 364  C     tanPhiAtU - tan of the latitude at
364  C                 metric term in U equation.  C                 metric term in U equation.
365  C     tanPhiAtV - tan of the latitude at V point. Used for spherical polar  C     tanPhiAtV - tan of the latitude at V point. Used for spherical polar
366  C                 metric term in V equation.  C                 metric term in V equation.
367    C     fCori     :: Coriolis parameter at grid Center point
368    C     fCoriG    :: Coriolis parameter at grid Corner point
369    C     fCoriCos  :: Coriolis Cos(phi) parameter at grid Center point (for NH)
370        COMMON /GRID_I/ klowC        COMMON /GRID_I/ klowC
371        INTEGER klowC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        INTEGER klowC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
372    
373        COMMON /GRID_R/        COMMON /GRID_R/
374         &  cosfacU,cosfacV,sqcosfacU,sqcosfacV,
375         &  gravitySign, rkSign,
376       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,
377       &  R_low,Ro_surf,HFacC,HFacW,HFacS,       &  R_low,Ro_surf,HFacC,HFacW,HFacS,
378       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,
# Line 379  C                 metric term in V equat Line 384  C                 metric term in V equat
384       &  maskH, maskC,maskW,maskS,       &  maskH, maskC,maskW,maskS,
385       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,
386       &  tanPhiAtU, tanPhiAtV,       &  tanPhiAtU, tanPhiAtV,
      &  cosfacU,cosfacV,sqcosfacU,sqcosfacV,  
387       &  drC,drF,recip_drC,recip_drF,rC,rF,       &  drC,drF,recip_drC,recip_drF,rC,rF,
388       &  gravitySign,       &  xC0, yC0,
389       &  rkFac, recip_rkFac, xC0, yC0       &  fCori, fCoriG, fCoriCos
390          _RL cosfacU(1-Oly:sNy+Oly,nSx,nSy)
391          _RL cosfacV(1-Oly:sNy+Oly,nSx,nSy)
392          _RL sqcosfacU(1-Oly:sNy+Oly,nSx,nSy)
393          _RL sqcosfacV(1-Oly:sNy+Oly,nSx,nSy)
394          _RL gravitySign
395          _RL rkSign
396        _RS dxC            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dxC            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
397        _RS dxF            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dxF            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
398        _RS dxG            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dxG            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 426  C                 metric term in V equat Line 436  C                 metric term in V equat
436        _RS maskS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)        _RS maskS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
437        _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
438        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
       _RL cosfacU(1-Oly:sNy+Oly,nSx,nSy)  
       _RL cosfacV(1-Oly:sNy+Oly,nSx,nSy)  
       _RL sqcosfacU(1-Oly:sNy+Oly,nSx,nSy)  
       _RL sqcosfacV(1-Oly:sNy+Oly,nSx,nSy)  
439        _RS drC            (1:Nr)        _RS drC            (1:Nr)
440        _RS drF            (1:Nr)        _RS drF            (1:Nr)
441        _RS recip_drC      (1:Nr)        _RS recip_drC      (1:Nr)
# Line 437  C                 metric term in V equat Line 443  C                 metric term in V equat
443        _RS saFac          (1:Nr)        _RS saFac          (1:Nr)
444        _RS rC             (1:Nr)        _RS rC             (1:Nr)
445        _RS rF             (1:Nr+1)        _RS rF             (1:Nr+1)
       _RL gravitySign  
       _RL rkFac  
       _RL recip_rkFac  
446        _RS xC0        _RS xC0
447        _RS yC0        _RS yC0
448          _RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
449          _RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
450          _RS fCoriCos(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
451    
452    
453  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
454        COMMON /GRID_NH/        COMMON /GRID_NH/
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22