diff --git a/src/core/MOM.F90 b/src/core/MOM.F90 index 9419ebb3f5..f9d6b35da6 100644 --- a/src/core/MOM.F90 +++ b/src/core/MOM.F90 @@ -221,9 +221,6 @@ module MOM real :: Hmix_UV !< Depth scale over which to average surface flow to !! feedback to the coupler/driver (m). !! bulk mixed layer is not used. - logical :: usehmix !< If true, surface properties (e.g., SST) are averaged - !! over a distance given by HMIX_SFC_PROP. This parameter - !! is valid just when BULKMIXLAYER is defined. real :: missing=-1.0e34 !< missing data value for masked fields ! Flags needed to reach between start and finish phases of initialization @@ -1541,23 +1538,6 @@ subroutine initialize_MOM(Time, param_file, dirs, CS, Time_in) "case is the largest integer multiple of the coupling \n"//& "timestep that is less than or equal to DT_THERM.", default=.false.) - if (CS%bulkmixedlayer) then - call get_param(param_file, "MOM", "USE_HMIX_SFC_PROP", CS%usehmix, & - "Applied only if BULKMIXLAYER is used. If TRUE, surface properties \n"//& - "like SST, SSS, density and velocities are averaged over \n"//& - "a distance given by HMIX_SFC_PROP. These averaged fields are \n"//& - "passed to the surface state structure, which is then used \n"//& - "to, for example, compute melting under an ice shelf.", default=.false.) - if(CS%usehmix) then - call get_param(param_file, "MOM", "HMIX_SFC_PROP", CS%Hmix, & - "If USE_HMIX_SFC_PROP is true, HMIX_SFC_PROP is the depth \n"//& - "over which to average to find surface properties like \n"//& - "SST, SSS, density are surface velocities.", & - units="m", default=1.0) - endif - - endif - if (.not.CS%bulkmixedlayer) then call get_param(param_file, "MOM", "HMIX_SFC_PROP", CS%Hmix, & "If BULKMIXEDLAYER is false, HMIX_SFC_PROP is the depth \n"//& @@ -2933,7 +2913,7 @@ subroutine calculate_surface_state(state, u, v, h, ssh, G, GV, CS, p_atm) enddo ; enddo endif ; endif - if (CS%bulkmixedlayer .and. .not. CS%usehmix) then + if (CS%bulkmixedlayer) then state%SST => CS%tv%T(:,:,1) state%SSS => CS%tv%S(:,:,1) state%u => u(:,:,1)