diff --git a/src/core_atmosphere/physics/physics_noahmp/drivers/mpas/NoahmpInitMainMod.F90 b/src/core_atmosphere/physics/physics_noahmp/drivers/mpas/NoahmpInitMainMod.F90 index 2dfce6bf00..5f3fc1dd40 100644 --- a/src/core_atmosphere/physics/physics_noahmp/drivers/mpas/NoahmpInitMainMod.F90 +++ b/src/core_atmosphere/physics/physics_noahmp/drivers/mpas/NoahmpInitMainMod.F90 @@ -50,7 +50,7 @@ subroutine NoahmpInitMain(NoahmpIO) ! Check if snow/snowh are consistent and cap SWE at 2000mm ! the Noah-MP code does it internally but if we don't do it here, problems ensue - do i = its, its + do i = its, ite if ( NoahmpIO%snow(i) < 0.0 ) NoahmpIO%snow(i) = 0.0 if ( NoahmpIO%snowh(i) < 0.0 ) NoahmpIO%snowh(i) = 0.0 if ( (NoahmpIO%snow(i) > 0.0) .and. (NoahmpIO%snowh(i) == 0.0) ) &