diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index 140fb9caf5d8067eff5f5710b7e1cf7641cf9d43..6737ab80229fa1851bb0079e5ef651bbee15bc5f 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -842,8 +842,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))