/[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.6 by cnh, Sat Aug 22 17:51:06 1998 UTC revision 1.14 by cnh, Sun Feb 4 14:38:44 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3  C  C
4  C     /==========================================================\  C     /==========================================================\
5  C     | GRID.h                                                   |  C     | GRID.h                                                   |
# Line 310  C              Note: The code needs term Line 311  C              Note: The code needs term
311  C                    On some platforms it may be better to precompute  C                    On some platforms it may be better to precompute
312  C                    hFacW, hFacE, ... here than do MIN on the fly.  C                    hFacW, hFacE, ... here than do MIN on the fly.
313  C     rkFac     - Vertical coordinate to vertical index orientation.  C     rkFac     - Vertical coordinate to vertical index orientation.
314  C                 ( 1 same orientation, -1 opposite orientation )  C                 ( -1 same orientation, 1 opposite orientation )
315  C                 ( vertical coord == m  -> rkFac = -1 )  C                 ( vertical coord == m  -> rkFac =  1 )
316  C                 ( vertical coord == Pa -> rkFac =  1 )  C                 ( vertical coord == Pa -> rkFac = -1 )
317  C     maskW  - West face land mask  C     maskW  - West face land mask
318  C     maskS  - South face land mask  C     maskS  - South face land mask
319  C     recip_dxC   - Recipricol of dxC  C     recip_dxC   - Recipricol of dxC
# Line 336  C              averaging but are just a Line 337  C              averaging but are just a
337  C              diagnostics etc.. As such xc is in m for cartesian  C              diagnostics etc.. As such xc is in m for cartesian
338  C              coordinates but degrees for spherical polar.  C              coordinates but degrees for spherical polar.
339  C     yC     - Y-coordinate of center of cell f[X,Y].  C     yC     - Y-coordinate of center of cell f[X,Y].
340    C     yG     - Y-coordinate of corner of cell ( c-grid vorticity point) f[X,Y].
341  C     xC0, yC0 - West edge x coord  ( metres or degrees )  C     xC0, yC0 - West edge x coord  ( metres or degrees )
342  C                South edge y coord ( metres or degrees )  C                South edge y coord ( metres or degrees )
343  C     rA     - R-face are f[X,Y] ( m^2 ).  C     rA     - R-face are f[X,Y] ( m^2 ).
# Line 351  C     tanPhiAtV - tan of the latitude at Line 353  C     tanPhiAtV - tan of the latitude at
353  C                 metric term in V equation.  C                 metric term in V equation.
354        COMMON /GRID_R/        COMMON /GRID_R/
355       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,drC,drF,       &  dxC,dxF,dxG,dxV,dyC,dyF,dyG,dyU,drC,drF,
356       &  H,HFacC,HFacW,HFacS,       &  H,HFacC,HFacW,HFacS,DepthInK,
357       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,       &  recip_dxC,recip_dxF,recip_dxG,recip_dxV,
358       &  recip_dyC,recip_dyF,recip_dyG,recip_dyU,       &  recip_dyC,recip_dyF,recip_dyG,recip_dyU,
359       &  recip_drC,recip_drF,       &  recip_drC,recip_drF,
# Line 359  C                 metric term in V equat Line 361  C                 metric term in V equat
361       &  recip_hFacC,recip_hFacW,recip_hFacS,       &  recip_hFacC,recip_hFacW,recip_hFacS,
362       &  rkFac, recip_rkFac,       &  rkFac, recip_rkFac,
363       &  saFac,       &  saFac,
364       &  xC,yC,rA,rC,rF,yC0,xC0,       &  xC,yC,rA,rAw,rAs,rAz,rC,rF,yC0,xC0,xG,yG,
365       &  maskW,maskS,       &  maskW,maskS,recip_rA,recip_rAw,recip_rAs,recip_rAz,
366       &  tanPhiAtU, tanPhiAtV       &  tanPhiAtU, tanPhiAtV
367        _RS dxC            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dxC            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
368        _RS dxF            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS dxF            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 374  C                 metric term in V equat Line 376  C                 metric term in V equat
376        _RS drF            (1:Nr)        _RS drF            (1:Nr)
377        _RS rkFac        _RS rkFac
378        _RS recip_rkFac        _RS recip_rkFac
379          _RS DepthInK       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
380        _RS H              (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS H              (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
381        _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)
382        _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)
# Line 394  C                 metric term in V equat Line 397  C                 metric term in V equat
397        _RS recip_hFacS    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)        _RS recip_hFacS    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
398        _RS saFac          (1:Nr)        _RS saFac          (1:Nr)
399        _RS xC             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS xC             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
400          _RS xG             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
401        _RS xC0        _RS xC0
402        _RS yC             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS yC             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
403          _RS yG             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
404        _RS yC0        _RS yC0
405        _RS rA             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS rA             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
406          _RS rAw            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
407          _RS rAs            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
408          _RS rAz            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
409          _RS recip_rA       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
410          _RS recip_rAw      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
411          _RS recip_rAs      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
412          _RS recip_rAz      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
413        _RS rC             (1:Nr)        _RS rC             (1:Nr)
414        _RS rF             (1:Nr+1)        _RS rF             (1:Nr+1)
415        _RS maskW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)        _RS maskW          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
# Line 405  C                 metric term in V equat Line 417  C                 metric term in V equat
417        _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtU      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
418        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tanPhiAtV      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
419    
420    #ifdef ALLOW_NONHYDROSTATIC
421  C--   COMMON /GRID_I/ Integer valued grid defining variables        COMMON /GRID_NH/
422  C     iDep  - Index of last "non-land" cell for each column f[X,Y].       &  recip_hFacU
423        COMMON /GRID_I/        _RS recip_hFacU    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
424       &      iDep  #endif
       INTEGER iDep(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22