/[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.4.4.1 by heimbach, Wed Feb 6 15:48:07 2002 UTC revision 1.7 by jmc, Fri Nov 22 02:50:34 2002 UTC
# Line 17  C     *================================= Line 17  C     *=================================
17  C     \ev  C     \ev
18  CEOP  CEOP
19    
20  C--   COMMON /SOLVE_BAROT/  Barotropic variables common block  C--   COMMON /SURF_FIXED/  fixed surface arrays (Real)
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        COMMON /SOLVE_BAROT/ Bo_surf, recip_Bo  C     topoZ    :: topographic height [m] (used mainly for atmosphere)
24        _RL  Bo_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        COMMON /SURF_FIXED/ Bo_surf, recip_Bo, topoZ
25          _RL  Bo_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
26        _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)
27          _RS  topoZ   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
28    
29  C--   COMMON /SURF_INDEX/ Common block for surface related index  C--   COMMON /SURF_INDEX/ Common block for surface related index
30  C     ksurfC ::  vertical index of the surface tracer cell  C     ksurfC ::  vertical index of the surface tracer cell
# Line 46  C     hFac_surfC ::  New thickness facto Line 48  C     hFac_surfC ::  New thickness facto
48  C                        center (Tracer point)  C                        center (Tracer point)
49  C     hFac_surfW ::  idem, West  interface (U point)  C     hFac_surfW ::  idem, West  interface (U point)
50  C     hFac_surfS ::  idem, South interface (V point)  C     hFac_surfS ::  idem, South interface (V point)
51    C     PmEpR :: keep the fresh water input (=-EmPmR) of the previous time step
52        COMMON /SURF_CHANGE/        COMMON /SURF_CHANGE/
53       &     hFac_surfC, hFac_surfW, hFac_surfS       &     hFac_surfC, hFac_surfW, hFac_surfS,
54         &     PmEpR
55        _RS  hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
56        _RS  hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  hFac_surfW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57        _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)
58          _RS  PmEpR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
59    
60  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
Legend:
Removed from v.1.4.4.1  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22