/[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.28 by jmc, Wed Jun 22 00:22:31 2005 UTC revision 1.29 by jmc, Wed Jul 13 00:15:03 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     angleCosC :: cosine of grid orientation angle relative to Geographic direction
368    C                  at cell center: alpha=(Eastward_dir,grid_uVel_dir)=(North_d,vVel_d)
369    C     angleSinC :: sinus  of grid orientation angle relative to Geographic direction
370    C                  at cell center: alpha=(Eastward_dir,grid_uVel_dir)=(North_d,vVel_d)
371  C     fCori     :: Coriolis parameter at grid Center point  C     fCori     :: Coriolis parameter at grid Center point
372  C     fCoriG    :: Coriolis parameter at grid Corner point  C     fCoriG    :: Coriolis parameter at grid Corner point
373  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 374  C     fCoriCos  :: Coriolis Cos(phi) par Line 378  C     fCoriCos  :: Coriolis Cos(phi) par
378       &  cosfacU,cosfacV,sqcosfacU,sqcosfacV,       &  cosfacU,cosfacV,sqcosfacU,sqcosfacV,
379       &  gravitySign, rkSign,       &  gravitySign, rkSign,
380       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,
381       &  R_low,Ro_surf,HFacC,HFacW,HFacS,       &  R_low,Ro_surf,hFacC,hFacW,hFacS,
382       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,
383       &  recip_dyC,recip_dyF,recip_dyG,recip_dyU,       &  recip_dyC,recip_dyF,recip_dyG,recip_dyU,
384       &  recip_Rcol,       &  recip_Rcol,
# Line 383  C     fCoriCos  :: Coriolis Cos(phi) par Line 387  C     fCoriCos  :: Coriolis Cos(phi) par
387       &  xC,yC,rA,rAw,rAs,rAz,xG,yG,       &  xC,yC,rA,rAw,rAs,rAz,xG,yG,
388       &  maskH, maskC,maskW,maskS,       &  maskH, maskC,maskW,maskS,
389       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,       &  recip_rA,recip_rAw,recip_rAs,recip_rAz,
390       &  tanPhiAtU, tanPhiAtV,       &  tanPhiAtU, tanPhiAtV, angleCosC, angleSinC,
391       &  drC,drF,recip_drC,recip_drF,rC,rF,       &  drC,drF,recip_drC,recip_drF,rC,rF,
392       &  xC0, yC0,       &  xC0, yC0,
393       &  fCori, fCoriG, fCoriCos       &  fCori, fCoriG, fCoriCos
# Line 403  C     fCoriCos  :: Coriolis Cos(phi) par Line 407  C     fCoriCos  :: Coriolis Cos(phi) par
407        _RS dyU            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dyU            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
408        _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)
409        _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)
410        _RS HFacC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)        _RS hFacC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
411        _RS HFacW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)        _RS hFacW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
412        _RS HFacS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)        _RS hFacS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
413        _RS recip_dxC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_dxC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
414        _RS recip_dxF      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_dxF      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
415        _RS recip_dxG      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_dxG      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 436  C     fCoriCos  :: Coriolis Cos(phi) par Line 440  C     fCoriCos  :: Coriolis Cos(phi) par
440        _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)
441        _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
442        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
443          _RS angleCosC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
444          _RS angleSinC      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
445        _RS drC            (1:Nr)        _RS drC            (1:Nr)
446        _RS drF            (1:Nr)        _RS drF            (1:Nr)
447        _RS recip_drC      (1:Nr)        _RS recip_drC      (1:Nr)
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22