From 80c33a469bfb5111e3f2a8182ab504d10fa8bce0 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Fri, 30 Mar 2018 11:10:49 -0600 Subject: [PATCH] Replaced Kv_turb -> Kv_shear --- src/core/MOM.F90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/core/MOM.F90 b/src/core/MOM.F90 index bcf6516505..22dbb86b15 100644 --- a/src/core/MOM.F90 +++ b/src/core/MOM.F90 @@ -1448,7 +1448,8 @@ subroutine initialize_MOM(Time, Time_init, param_file, dirs, CS, restart_CSp, & real, dimension(:,:), pointer :: shelf_area type(MOM_restart_CS), pointer :: restart_CSp_tmp => NULL() type(group_pass_type) :: tmp_pass_uv_T_S_h, pass_uv_T_S_h - type(group_pass_type) :: tmp_pass_Kv_turb + ! GMM, the following *is not* used. Should we delete it? + type(group_pass_type) :: tmp_pass_Kv_shear real :: default_val ! default value for a parameter logical :: write_geom_files ! If true, write out the grid geometry files. @@ -2288,8 +2289,8 @@ subroutine initialize_MOM(Time, Time_init, param_file, dirs, CS, restart_CSp, & call do_group_pass(pass_uv_T_S_h, G%Domain) - if (associated(CS%visc%Kv_turb)) & - call pass_var(CS%visc%Kv_turb, G%Domain, To_All+Omit_Corners, halo=1) + if (associated(CS%visc%Kv_shear)) & + call pass_var(CS%visc%Kv_shear, G%Domain, To_All+Omit_Corners, halo=1) call cpu_clock_end(id_clock_pass_init)