/[MITgcm]/MITgcm_contrib/ksnow/press_release/code/DYNVARS.h
ViewVC logotype

Diff of /MITgcm_contrib/ksnow/press_release/code/DYNVARS.h

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

revision 1.1 by ksnow, Fri Dec 16 15:23:18 2016 UTC revision 1.2 by ksnow, Mon Jan 30 16:32:18 2017 UTC
# Line 64  C           implicDiv2DFlow=1 => etaH=et Line 64  C           implicDiv2DFlow=1 => etaH=et
64        _RL  gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
65        _RL  gsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  gsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
66  #endif /* ALLOW_ADAMSBASHFORTH_3 */  #endif /* ALLOW_ADAMSBASHFORTH_3 */
67          
   
68  #ifdef ALLOW_PRESSURE_RELEASE_CODE  #ifdef ALLOW_PRESSURE_RELEASE_CODE
69        COMMON /PRESS_RELEASE_R/        COMMON /PRESS_RELEASE_R/
70       &  pReleaseTransX, pReleaseTransY       &  pReleaseTransX, pReleaseTransY
# Line 116  C                     (for diagnostic + Line 115  C                     (for diagnostic +
115  C     IVDConvCount :: Impl.Vert.Diffusion convection counter:  C     IVDConvCount :: Impl.Vert.Diffusion convection counter:
116  C                     = 0 (not convecting) or 1 (convecting)  C                     = 0 (not convecting) or 1 (convecting)
117        COMMON /DYNVARS_DIAG/        COMMON /DYNVARS_DIAG/
118       &                       phiHydLow, totPhiHyd,       &                phiHydLow, totPhiHyd,
119       &                       rhoInSitu,       &                rhoInSitu,
120       &                       hMixLayer, IVDConvCount, phiHydLowC       &                hMixLayer, IVDConvCount, phiHydLowC
121        _RL  phiHydLow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  phiHydLow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
122          _RL  phiHydLowC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
123        _RL  totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
124        _RL  rhoInSitu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  rhoInSitu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
125        _RL  hMixLayer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  hMixLayer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
126        _RL  IVDConvCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  IVDConvCount(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
       _RL  phiHydLowC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
127    
128    #ifdef ALLOW_SOLVE4_PS_AND_DRAG
129    C     Variables for Implicit friction (& vert. visc) in 2-D pressure solver
130    C     dU_psFacX    :: zonal velocity increment factor from (implicit) surf.
131    C                     pressure gradient in X (no Units)
132    C     dV_psFacY    :: merid velocity increment factor from (implicit) surf.
133    C                     pressure gradient in Y (no Units)
134    
135          COMMON /DYNVARS_DRAG_IN_PS/
136         &                dU_psFacX, dV_psFacY
137          _RL  dU_psFacX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
138          _RL  dV_psFacY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
139    #endif /* ALLOW_SOLVE4_PS_AND_DRAG */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22