/[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.5 by cnh, Sat Aug 15 16:55:47 1998 UTC revision 1.8 by cnh, Sun Sep 6 14:49:23 1998 UTC
# Line 129  C     |       |        /|\          | Line 129  C     |       |        /|\          |
129  C     |       |-------- | -----------------etc..  | ----*---     |  C     |       |-------- | -----------------etc..  | ----*---     |
130  C     |       |    rVel(i=1,        |        rVel(i=Nx, *  |     |  C     |       |    rVel(i=1,        |        rVel(i=Nx, *  |     |
131  C     |       |         j=1,        |             j=1,  *  |     |  C     |       |         j=1,        |             j=1,  *  |     |
132  C     |       |         k=Nz)       |             k=Nz) *  |     |  C     |       |         k=Nr)       |             k=Nr) *  |     |
133  C     |U(i=1, ==>       x         ==>U(i=2,       x     *==>U    |  C     |U(i=1, ==>       x         ==>U(i=2,       x     *==>U    |
134  C     |  j=1, |      T(i=1,         |  j=1,    T(i=Nx,  *(i=Nx+1,|  C     |  j=1, |      T(i=1,         |  j=1,    T(i=Nx,  *(i=Nx+1,|
135  C     |  k=Nz)|        j=1,         |  k=Nz)     j=1,   *  |j=1, |  C     |  k=Nr)|        j=1,         |  k=Nr)     j=1,   *  |j=1, |
136  C     |       |        k=Nz)        |            k=Nz)  *  |k=Nz)|  C     |       |        k=Nr)        |            k=Nr)  *  |k=Nr)|
137  C     |       |                     |                   *  |     |  C     |       |                     |                   *  |     |
138  C     |"LB"++>==============================================     |  C     |"LB"++>==============================================     |
139  C     |                                               "PWX"      |  C     |                                               "PWX"      |
# Line 309  C              "lopped" a cell is (dimen Line 309  C              "lopped" a cell is (dimen
309  C              Note: The code needs terms like MIN(hFac,hFac(I+1))  C              Note: The code needs terms like MIN(hFac,hFac(I+1))
310  C                    On some platforms it may be better to precompute  C                    On some platforms it may be better to precompute
311  C                    hFacW, hFacE, ... here than do MIN on the fly.  C                    hFacW, hFacE, ... here than do MIN on the fly.
312    C     rkFac     - Vertical coordinate to vertical index orientation.
313    C                 ( -1 same orientation, 1 opposite orientation )
314    C                 ( vertical coord == m  -> rkFac =  1 )
315    C                 ( vertical coord == Pa -> rkFac = -1 )
316  C     maskW  - West face land mask  C     maskW  - West face land mask
317  C     maskS  - South face land mask  C     maskS  - South face land mask
318  C     recip_dxC   - Recipricol of dxC  C     recip_dxC   - Recipricol of dxC
# Line 346  C                 metric term in U equat Line 350  C                 metric term in U equat
350  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
351  C                 metric term in V equation.  C                 metric term in V equation.
352        COMMON /GRID_R/        COMMON /GRID_R/
353       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,dzC,drF,       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,drC,drF,
354       &  H,HFacC,HFacW,HFacS,       &  H,HFacC,HFacW,HFacS,
355       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,
356       &  recip_dyC,recip_dyF,recip_dyG,recip_dyU,       &  recip_dyC,recip_dyF,recip_dyG,recip_dyU,
357       &  recip_drC,recip_drF,       &  recip_drC,recip_drF,
358       &  recip_H,       &  recip_H,
359       &  recip_hFacC,recip_hFacW,recip_hFacS,       &  recip_hFacC,recip_hFacW,recip_hFacS,
360         &  rkFac, recip_rkFac,
361       &  saFac,       &  saFac,
362       &  xC,yC,rA,rC,rF,yC0,xC0,       &  xC,yC,rA,rC,rF,yC0,xC0,
363       &  maskW,maskS,       &  maskW,maskS,
# Line 365  C                 metric term in V equat Line 370  C                 metric term in V equat
370        _RS dyF            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dyF            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
371        _RS dyG            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dyG            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
372        _RS dyU            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dyU            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
373        _RS drC            (1:Nz)        _RS drC            (1:Nr)
374        _RS drF            (1:Nz)        _RS drF            (1:Nr)
375          _RS rkFac
376          _RS recip_rkFac
377        _RS H              (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS H              (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
378        _RS HFacC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy)        _RS HFacC          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
379        _RS HFacW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy)        _RS HFacW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
380        _RS HFacS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy)        _RS HFacS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
381        _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)
382        _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)
383        _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 379  C                 metric term in V equat Line 386  C                 metric term in V equat
386        _RS recip_dyF      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_dyF      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
387        _RS recip_dyG      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_dyG      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
388        _RS recip_dyU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_dyU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
389        _RS recip_dzC      (1:Nz)        _RS recip_drC      (1:Nr)
390        _RS recip_drF      (1:Nz)        _RS recip_drF      (1:Nr)
391        _RS recip_h        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS recip_h        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
392        _RS recip_hFacC    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy)        _RS recip_hFacC    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
393        _RS recip_hFacW    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy)        _RS recip_hFacW    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
394        _RS recip_hFacS    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy)        _RS recip_hFacS    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
395        _RS saFac          (1:Nz)        _RS saFac          (1:Nr)
396        _RS xC             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS xC             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
397        _RS xC0        _RS xC0
398        _RS yC             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS yC             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
399        _RS yC0        _RS yC0
400        _RS rA             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS rA             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
401        _RS rC             (1:Nz)        _RS rC             (1:Nr)
402        _RS rF             (1:Nz+1)        _RS rF             (1:Nr+1)
403        _RS maskW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy)        _RS maskW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
404        _RS maskS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nz,nSx,nSy)        _RS maskS          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
405        _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
406        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
407    
   
408  C--   COMMON /GRID_I/ Integer valued grid defining variables  C--   COMMON /GRID_I/ Integer valued grid defining variables
409  C     iDep  - Index of last "non-land" cell for each column f[X,Y].  C     iDep  - Index of last "non-land" cell for each column f[X,Y].
410        COMMON /GRID_I/        COMMON /GRID_I/
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22