/[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.36 by jmc, Sun Aug 30 23:19:04 2009 UTC revision 1.37 by jmc, Thu Dec 17 23:44:06 2009 UTC
# Line 350  C              Note: The code needs term Line 350  C              Note: The code needs term
350  C                    On some platforms it may be better to precompute  C                    On some platforms it may be better to precompute
351  C                    hFacW, hFacE, ... here than do MIN on the fly.  C                    hFacW, hFacE, ... here than do MIN on the fly.
352  C     maskH   :: cell Center full-column mask (= 2D mask)  C     maskH   :: cell Center full-column mask (= 2D mask)
353    C     maskInC :: Cell Center 2-D Interior mask (i.e., zero beyond OB)
354    C     maskInW :: West  face 2-D Interior mask (i.e., zero on and beyond OB)
355    C     maskInS :: South face 2-D Interior mask (i.e., zero on and beyond OB)
356  C     maskC   :: cell Center land mask  C     maskC   :: cell Center land mask
357  C     maskW   :: West face land mask  C     maskW   :: West face land mask
358  C     maskS   :: South face land mask  C     maskS   :: South face land mask
# Line 402  C     fCoriCos  :: Coriolis Cos(phi) par Line 405  C     fCoriCos  :: Coriolis Cos(phi) par
405       &  recip_Rcol,       &  recip_Rcol,
406       &  recip_hFacC,recip_hFacW,recip_hFacS,       &  recip_hFacC,recip_hFacW,recip_hFacS,
407       &  xC,yC,rA,rAw,rAs,rAz,xG,yG,       &  xC,yC,rA,rAw,rAs,rAz,xG,yG,
408       &  maskH, maskC,maskW,maskS,       &  maskH,
409         &  maskInC, maskInW, maskInS,
410         &  maskC, maskW, maskS,
411       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,
412       &  tanPhiAtU, tanPhiAtV, angleCosC, angleSinC,       &  tanPhiAtU, tanPhiAtV, angleCosC, angleSinC,
413       &  drC,drF,recip_drC,recip_drF,rC,rF,       &  drC,drF,recip_drC,recip_drF,rC,rF,
# Line 445  C     fCoriCos  :: Coriolis Cos(phi) par Line 450  C     fCoriCos  :: Coriolis Cos(phi) par
450        _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)
451        _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)
452        _RS maskH          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS maskH          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
453          _RS maskInC        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
454          _RS maskInW        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
455          _RS maskInS        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
456        _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)
457        _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)
458        _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)
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22