quick fix for uninitialized variables (CICE-Consortium#38)

eclare108213 · Nov 20, 2021 · c308719 · c308719
1 parent 207be2d
commit c308719
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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),  &