diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index ffda075d1032daa1f0e32b7c4e9db1c9a8b43b9f..74971c319cf08a8ac380513a604908f067456cb1 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -845,8 +845,8 @@ ELSE END IF ! IF (NRR>1) THEN - ALLOCATE(XCLDFR(IIU,IJU,IKU)) - ALLOCATE(XRAINFR(IIU,IJU,IKU)) + ALLOCATE(XCLDFR(IIU,IJU,IKU)); XCLDFR (:, :, :) = 0. + ALLOCATE(XRAINFR(IIU,IJU,IKU)); XRAINFR(:, :, :) = 0. ELSE ALLOCATE(XCLDFR(0,0,0)) ALLOCATE(XRAINFR(0,0,0))