/[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.26 by heimbach, Sat Jul 24 01:26:26 2004 UTC revision 1.27 by jmc, Wed Apr 6 18:22:11 2005 UTC
# 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    
# Line 382  C                 metric term in V equat Line 385  C                 metric term in V equat
385       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,
386       &  tanPhiAtU, tanPhiAtV,       &  tanPhiAtU, tanPhiAtV,
387       &  drC,drF,recip_drC,recip_drF,rC,rF,       &  drC,drF,recip_drC,recip_drF,rC,rF,
388       &  xC0, yC0       &  xC0, yC0,
389         &  fCori, fCoriG, fCoriCos
390        _RL cosfacU(1-Oly:sNy+Oly,nSx,nSy)        _RL cosfacU(1-Oly:sNy+Oly,nSx,nSy)
391        _RL cosfacV(1-Oly:sNy+Oly,nSx,nSy)        _RL cosfacV(1-Oly:sNy+Oly,nSx,nSy)
392        _RL sqcosfacU(1-Oly:sNy+Oly,nSx,nSy)        _RL sqcosfacU(1-Oly:sNy+Oly,nSx,nSy)
# Line 442  C                 metric term in V equat Line 446  C                 metric term in V equat
446        _RS rF             (1:Nr+1)        _RS rF             (1:Nr+1)
447        _RS xC0        _RS xC0
448        _RS yC0        _RS yC0
449          _RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
450          _RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
451          _RS fCoriCos(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
452    
453    
454  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
455        COMMON /GRID_NH/        COMMON /GRID_NH/
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22