/[MITgcm]/MITgcm/pkg/down_slope/dwnslp_calc_flow.F
ViewVC logotype

Diff of /MITgcm/pkg/down_slope/dwnslp_calc_flow.F

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

revision 1.2 by jmc, Mon Sep 22 17:57:05 2008 UTC revision 1.3 by jmc, Fri Apr 23 13:19:26 2010 UTC
# Line 46  C     myThid    :: my Thread Id number Line 46  C     myThid    :: my Thread Id number
46    
47  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
48  C     === Local variables ===  C     === Local variables ===
49  C     msgBuf     :: Informational/error meesage buffer  C     msgBuf     :: Informational/error message buffer
50  C     ijd     :: horiz. index of deep water column receiving dense water flow  C     ijd     :: horiz. index of deep water column receiving dense water flow
51  C     ijs     :: horiz. index of shallow water column (e.g. shelf)  C     ijs     :: horiz. index of shallow water column (e.g. shelf)
52  C                from which dense water flow originates  C                from which dense water flow originates
# Line 93  c     downward = rkSign*NINT(gravitySign Line 93  c     downward = rkSign*NINT(gravitySign
93        DO n=1,DWNSLP_NbSite(bi,bj)        DO n=1,DWNSLP_NbSite(bi,bj)
94          DWNSLP_deepK(n,bi,bj) = 0          DWNSLP_deepK(n,bi,bj) = 0
95    
96  C- detect density dradient along the slope => Downsloping flow  C- detect density gradient along the slope => Downsloping flow
97    
98          ijd = DWNSLP_ijDeep(n,bi,bj)          ijd = DWNSLP_ijDeep(n,bi,bj)
99          ijr = DWNSLP_shVsD(n,bi,bj)          ijr = DWNSLP_shVsD(n,bi,bj)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22