pkg/down_slope/DWNSLP_VARS.h

b6bbe8cccf Jean*0001 #ifdef ALLOW_DOWN_SLOPE
                0002
                0003 C store the location of potential site where Down-Sloping Flow is applied
                0004 C  DWNSLP_NbSite :: Number of bathymetry steps within each tile
                0005 C  DWNSLP_ijDeep :: horiz. index of deep water-column next to DWNSLP site
                0006 C  DWNSLP_shVsD  :: horiz. index of shallow water-column relative to ijDeep
                0007 C  DWNSLP_deepK  :: level index (in deep water column) where dense water
                0008 C                   (from the bottom of shallow column) is flowing into.
                0009       INTEGER DWNSLP_NbSite( nSx, nSy )
                0010       INTEGER DWNSLP_ijDeep( DWNSLP_size, nSx, nSy )
                0011       INTEGER DWNSLP_shVsD ( DWNSLP_size, nSx, nSy )
                0012       INTEGER DWNSLP_deepK ( DWNSLP_size, nSx, nSy )
                0013       COMMON /DWNSLP_SITE/
                0014      &  DWNSLP_NbSite, DWNSLP_ijDeep, DWNSLP_shVsD, DWNSLP_deepK
                0015
                0016 C store variables used to compute the Down-Sloping transport of each tracer.
                0017 C     DWNSLP_Gamma  :: geometric factor = slope * cross section area [m^2]
                0018 C     DWNSLP_Transp :: down-sloping flow: volume transport [m^3/s]
                0019 C        if using P-Coord., Gamma & Transp units become [m.Pa] & [m^2.Pa/s]
                0020       _RL DWNSLP_Gamma ( DWNSLP_size, nSx, nSy )
                0021       _RL DWNSLP_Transp( DWNSLP_size, nSx, nSy )
                0022       COMMON /DWNSLP_FLOW/ DWNSLP_Gamma, DWNSLP_Transp
                0023
                0024 #endif /* ALLOW_DOWN_SLOPE */