From c11e83622c2739875d672da86a1cd12dfb28f211 Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Mon, 27 Apr 2015 21:58:42 -0400 Subject: [PATCH] Bugfix: uninitialized variable CS%Decay_scale_factor_lee - Reported by @nicjhan in issue #149. - The get_param() that set this parameter was inside an if-block so the parameter was not always set. - I set it to a nonsense value to make sure it is NOT used unintentionally. - No answer changes. --- src/parameterizations/vertical/MOM_set_diffusivity.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/parameterizations/vertical/MOM_set_diffusivity.F90 b/src/parameterizations/vertical/MOM_set_diffusivity.F90 index bc1103b614..9bc1ab6742 100644 --- a/src/parameterizations/vertical/MOM_set_diffusivity.F90 +++ b/src/parameterizations/vertical/MOM_set_diffusivity.F90 @@ -2760,6 +2760,8 @@ subroutine set_diffusivity_init(Time, G, param_file, diag, CS, diag_to_Z_CSp) 'Lee wave Driven Turbulent Kinetic Energy', 'Watt meter-2') CS%id_Kd_Niku = register_diag_field('ocean_model','Kd_Nikurashin',diag%axesTi,Time, & 'Lee Wave Driven Diffusivity', 'meter2 sec-1') + else + CS%Decay_scale_factor_lee = -9.e99 ! This should never be used if CS%Lee_wave_dissipation = False endif CS%id_TKE_itidal = register_diag_field('ocean_model','TKE_itidal',diag%axesT1,Time, &