From c308719c478853f082d317a0005a19b7505ef0c2 Mon Sep 17 00:00:00 2001 From: Tony Craig Date: Fri, 19 Nov 2021 18:48:20 -0800 Subject: [PATCH] quick fix for uninitialized variables (#38) --- cicecore/cicedynB/dynamics/ice_dyn_evp.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 index f74b3b49a..10a756de6 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 @@ -1518,7 +1518,9 @@ subroutine stress_U (nx_block, ny_block, & !----------------------------------------------------------------- ! COMING SOON!!! - + zetax2U = c0 + etax2U = c0 + rep_prsU = c0 ! call viscous_coeffs_and_rep_pressure_U (zetax2T(i,j), zetax2T(i,j+1), & ! zetax2T(i+1,j+1),zetax2T(i+1,j), & ! etax2T(i,j), etax2T(i,j+1), &