/[MITgcm]/MITgcm/model/inc/SURFACE.h
ViewVC logotype

Diff of /MITgcm/model/inc/SURFACE.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by jmc, Fri Nov 22 02:50:34 2002 UTC revision 1.10 by adcroft, Tue May 13 17:25:22 2003 UTC
# Line 21  C--   COMMON /SURF_FIXED/  fixed surface Line 21  C--   COMMON /SURF_FIXED/  fixed surface
21  C     Bo_surf  :: Boyancy|1/rho [ocean|atmos] at surface level [=g|alpha(p_o)]  C     Bo_surf  :: Boyancy|1/rho [ocean|atmos] at surface level [=g|alpha(p_o)]
22  C     recip_Bo :: 1/Bo_surf  C     recip_Bo :: 1/Bo_surf
23  C     topoZ    :: topographic height [m] (used mainly for atmosphere)  C     topoZ    :: topographic height [m] (used mainly for atmosphere)
24        COMMON /SURF_FIXED/ Bo_surf, recip_Bo, topoZ  C     phi0surf :: starting point for integrating phi_Hyd
25          COMMON /SURF_FIXED/ Bo_surf, recip_Bo, topoZ, phi0surf
26        _RL  Bo_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  Bo_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
27        _RL  recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28        _RS  topoZ   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  topoZ   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
29          _RS  phi0surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
30    
31  C--   COMMON /SURF_INDEX/ Common block for surface related index  C--   COMMON /SURF_INDEX/ Common block for surface related index
32  C     ksurfC ::  vertical index of the surface tracer cell  C     ksurfC ::  vertical index of the surface tracer cell
# Line 43  C     hDivFlow :: Div. Barotropic Flow a Line 45  C     hDivFlow :: Div. Barotropic Flow a
45  #endif  #endif
46    
47  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
48  C--   COMMON /SURF_CHANGE/ transient varariable used for Non-Lin Free-Surf  C--   COMMON /SURF_CHANGE/ transient variables used for Non-Lin Free-Surf
49  C     hFac_surfC ::  New thickness factor of the surface level  C     hFac_surfC ::  New thickness factor of the surface level
50  C                        center (Tracer point)  C                        center (Tracer point)
51  C     hFac_surfW ::  idem, West  interface (U point)  C     hFac_surfW ::  idem, West  interface (U point)
# Line 57  C     PmEpR :: keep the fresh water inpu Line 59  C     PmEpR :: keep the fresh water inpu
59        _RS  hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  hFac_surfS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
60        _RS  PmEpR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  PmEpR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
61    
62    C--   COMMON /RSTAR_CHANGE/ transient variables used with r* Coordinate
63    C     rStarFacC :: = dr/dr* = ratio of r-thickness / r*-thickness = h^n / H
64    C     rStarFacW :: same but for West  face
65    C     rStarFacS :: same but for South face
66    C     rStarExpC :: column expansion factor = h^n+1/h^n , Centered
67    C     rStarExpW :: column expansion factor = h^n+1/h^n , Western  face
68    C     rStarExpS :: column expansion factor = h^n+1/h^n , Southern face
69    C     rStarDhCDt:: relative time derivative of h_Center = d.eta/dt / H
70    C     rStarDhWDt:: relative time derivative of h_West_face  (u.point)
71    C     rStarDhSDt:: relative time derivative of h_South_face (v.point)
72          COMMON /RSTAR_CHANGE/
73         &     rStarFacC, rStarFacW, rStarFacS,
74         &     rStarExpC, rStarExpW, rStarExpS,
75         &     rStarDhCDt,rStarDhWDt,rStarDhSDt
76          _RL  rStarFacC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
77          _RL  rStarFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
78          _RL  rStarFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79          _RL  rStarExpC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80          _RL  rStarExpW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
81          _RL  rStarExpS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82          _RL  rStarDhCDt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
83          _RL  rStarDhWDt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
84          _RL  rStarDhSDt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
85    
86    C--   COMMON /RSTAR_FIXED/ fixed thickness ratio ( r* discretization )
87    C     h0FacC :: initial (and fixed in time) hFacC factor
88    C     h0FacW :: initial (and fixed in time) hFacW factor
89    C     h0FacS :: initial (and fixed in time) hFacS factor
90          COMMON /RSTAR_FIXED/
91         & h0FacC, h0FacW, h0FacS
92          _RS h0FacC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
93          _RS h0FacW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
94          _RS h0FacS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
95    
96  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22