diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index f8e8ac5c5786f45af518e835099cf8401c971d74..1bbb5cf60f80aa3c7aee3e4a0882ba9090977081 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -892,7 +892,7 @@ ALLOCATE(XDZZ(IIU,IJU,IKU)) IF (KMI == 1) THEN ALLOCATE(XRHODREFZ(IKU),XTHVREFZ(IKU)) ELSE - ALLOCATE(XRHODREFZ(0),XTHVREFZ(0)) + !Do not allocate XRHODREFZ and XTHVREFZ because they are the same on all grids (not 'n' variables) END IF ALLOCATE(XRHODREF(IIU,IJU,IKU)) ALLOCATE(XTHVREF(IIU,IJU,IKU)) @@ -1511,22 +1511,7 @@ IF (KMI == 1) THEN ALLOCATE(XVFRC_PAST(0,0,0)) END IF ELSE - ALLOCATE(TDTFRC(0)) - ALLOCATE(XUFRC(0,0)) - ALLOCATE(XVFRC(0,0)) - ALLOCATE(XWFRC(0,0)) - ALLOCATE(XTHFRC(0,0)) - ALLOCATE(XRVFRC(0,0)) - ALLOCATE(XTENDTHFRC(0,0)) - ALLOCATE(XTENDRVFRC(0,0)) - ALLOCATE(XGXTHFRC(0,0)) - ALLOCATE(XGYTHFRC(0,0)) - ALLOCATE(XPGROUNDFRC(0)) - ALLOCATE(XTENDUFRC(0,0)) - ALLOCATE(XTENDVFRC(0,0)) - ALLOCATE(XWTFRC(0,0,0)) - ALLOCATE(XUFRC_PAST(0,0,0)) - ALLOCATE(XVFRC_PAST(0,0,0)) + !Do not allocate because they are the same on all grids (not 'n' variables) END IF ! ---------------------------------------------------------------------- !