diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index 161742b5b9c037f900b3dcec81cae0f738199a14..f40302c7616f1d145e7ca41e57e014865160c992 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -839,8 +839,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))