/[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.41 by jmc, Sat Sep 11 21:23:09 2010 UTC revision 1.42 by jmc, Sun Feb 17 02:08:13 2013 UTC
# Line 353  C              "lopped" a cell is (dimen Line 353  C              "lopped" a cell is (dimen
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))
354  C                    On some platforms it may be better to precompute  C                    On some platforms it may be better to precompute
355  C                    hFacW, hFacE, ... here than do MIN on the fly.  C                    hFacW, hFacE, ... here than do MIN on the fly.
 cC    maskH   :: cell Center full-column mask (= 2D mask)  
356  C     maskInC :: Cell Center 2-D Interior mask (i.e., zero beyond OB)  C     maskInC :: Cell Center 2-D Interior mask (i.e., zero beyond OB)
357  C     maskInW :: West  face 2-D Interior mask (i.e., zero on and beyond OB)  C     maskInW :: West  face 2-D Interior mask (i.e., zero on and beyond OB)
358  C     maskInS :: South face 2-D Interior mask (i.e., zero on and beyond OB)  C     maskInS :: South face 2-D Interior mask (i.e., zero on and beyond OB)
# Line 403  C     tanPhiAtV :: tan of the latitude a Line 402  C     tanPhiAtV :: tan of the latitude a
402  C                  metric term in V equation.  C                  metric term in V equation.
403  C     angleCosC :: cosine of grid orientation angle relative to Geographic direction  C     angleCosC :: cosine of grid orientation angle relative to Geographic direction
404  C               at cell center: alpha=(Eastward_dir,grid_uVel_dir)=(North_d,vVel_d)  C               at cell center: alpha=(Eastward_dir,grid_uVel_dir)=(North_d,vVel_d)
405  C     angleSinC :: sinus  of grid orientation angle relative to Geographic direction  C     angleSinC :: sine   of grid orientation angle relative to Geographic direction
406  C               at cell center: alpha=(Eastward_dir,grid_uVel_dir)=(North_d,vVel_d)  C               at cell center: alpha=(Eastward_dir,grid_uVel_dir)=(North_d,vVel_d)
407    C     u2zonDir  :: cosine of grid orientation angle at U point location
408    C     v2zonDir  :: minus sine of  orientation angle at V point location
409  C     fCori     :: Coriolis parameter at grid Center point  C     fCori     :: Coriolis parameter at grid Center point
410  C     fCoriG    :: Coriolis parameter at grid Corner point  C     fCoriG    :: Coriolis parameter at grid Corner point
411  C     fCoriCos  :: Coriolis Cos(phi) parameter at grid Center point (for NH)  C     fCoriCos  :: Coriolis Cos(phi) parameter at grid Center point (for NH)
# Line 425  C     fCoriCos  :: Coriolis Cos(phi) par Line 426  C     fCoriCos  :: Coriolis Cos(phi) par
426       &  drC, drF, recip_drC, recip_drF, rC, rF,       &  drC, drF, recip_drC, recip_drF, rC, rF,
427       &  aHybSigmF, bHybSigmF, aHybSigmC, bHybSigmC,       &  aHybSigmF, bHybSigmF, aHybSigmC, bHybSigmC,
428       &  dAHybSigF, dBHybSigF, dBHybSigC, dAHybSigC,       &  dAHybSigF, dBHybSigF, dBHybSigC, dAHybSigC,
429       &  tanPhiAtU, tanPhiAtV, angleCosC, angleSinC,       &  tanPhiAtU, tanPhiAtV,
430         &  angleCosC, angleSinC, u2zonDir, v2zonDir,
431       &  fCori, fCoriG, fCoriCos       &  fCori, fCoriG, fCoriCos
 c    & , maskH  
432        _RS dxC            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dxC            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
433        _RS dxF            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dxF            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
434        _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 469  c    & , maskH Line 470  c    & , maskH
470        _RS recip_rAw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_rAw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
471        _RS recip_rAs      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_rAs      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
472        _RS recip_rAz      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_rAz      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
 c     _RS maskH          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
473        _RS maskInC        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS maskInC        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
474        _RS maskInW        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS maskInW        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
475        _RS maskInS        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS maskInS        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 494  c     _RS maskH          (1-OLx:sNx+OLx, Line 494  c     _RS maskH          (1-OLx:sNx+OLx,
494        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
495        _RS angleCosC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS angleCosC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
496        _RS angleSinC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS angleSinC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
497          _RS u2zonDir       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
498          _RS v2zonDir       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
499        _RS fCori          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCori          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
500        _RS fCoriG         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCoriG         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
501        _RS fCoriCos       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS fCoriCos       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22