diff --git a/physics/drag_suite.F90 b/physics/drag_suite.F90 index 725011ee4..55ef9c268 100644 --- a/physics/drag_suite.F90 +++ b/physics/drag_suite.F90 @@ -473,6 +473,7 @@ subroutine drag_suite_run( & ! Initialize CCPP error handling variables errmsg = '' errflg = 0 + var_temp2 = 0. !-------------------------------------------------------------------- diff --git a/physics/module_sf_noahmp_glacier.f90 b/physics/module_sf_noahmp_glacier.f90 index 1b9b3cf3f..f3e0531f5 100644 --- a/physics/module_sf_noahmp_glacier.f90 +++ b/physics/module_sf_noahmp_glacier.f90 @@ -1111,6 +1111,8 @@ subroutine glacier_flux (nsoil ,nsnow ,emg ,isnow ,df ,dzsnso ,z dtg = 0. mozsgn = 0 mozold = 0. + moz = 0. + h = 0. fv = 0.1