Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:39:16 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
b6bbe8cccf Jean*0001 #ifdef ALLOW_DOWN_SLOPE
                0002 
                0003 C-    Package flag and logical parameters :
                0004 C     temp_useDWNSLP  :: true if Down-Sloping flow applies to temperature
                0005 C     salt_useDWNSLP  :: true if Down-Sloping flow applies to salinity
                0006       COMMON /DWNSLP_PARM_L/
                0007      &        temp_useDWNSLP, salt_useDWNSLP
                0008       LOGICAL temp_useDWNSLP, salt_useDWNSLP
                0009 
                0010 C-    Integer parameters :
                0011 C     DWNSLP_ioUnit :: ioUnit for log/debug messages
                0012       COMMON /DWNSLP_PARM_I/
                0013      &        DWNSLP_ioUnit
                0014       INTEGER DWNSLP_ioUnit
                0015 
                0016 C-    Down-Sloping Parameterization : real parameters :
                0017 C     DWNSLP_slope  :: fixed slope (=0 => use the local slope)
                0018 C     DWNSLP_rec_mu :: reciprol friction parameter (unit = time scale [s])
                0019 C           used to compute the flow: U=dy*dz*(slope * g/mu * dRho / rho0)
                0020 C     dwnslp_drFlow :: max. thickness [m] of the effective downsloping flow layer
                0021       COMMON /DWNSLP_PARAMS_R/
                0022      &        DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow
                0023       _RL     DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow
                0024 
                0025 #endif /* ALLOW_DOWN_SLOPE */