diff --git a/source/model/init.f90 b/source/model/init.f90
index 384bd2c3307e39307351a04a1833dfcd6c0d374c..d22ca52213d673efb56ee5debf8f5dc946b161bb 100644
--- a/source/model/init.f90
+++ b/source/model/init.f90
@@ -136,11 +136,11 @@
  allocate (S(1:M),Gen(1:M),F(1:M),TKE_turb_trans(1:M),Gen_seiches(1:M))
  allocate (KT(1:M+1),k2(1:M+1),u1(1:M+1),v1(1:M+1), &
  & E1(1:M+1), eps1(1:M+1), wArea(0:M+1), w(0:M+1))
- if (dyn_pgrad%par == 5 .or. dyn_pgrad%par == 6) then 
-   allocate (eps_ziriv     (1:M  ))
-   allocate (viscturb_ziriv(1:M  ))
-   allocate (speed_ziriv   (1:M+1))
- endif
+ !if (dyn_pgrad%par == 5 .or. dyn_pgrad%par == 6) then 
+ allocate (eps_ziriv     (1:M  )); eps_ziriv      (:) = missing_value
+ allocate (viscturb_ziriv(1:M  )); viscturb_ziriv (:) = missing_value
+ allocate (speed_ziriv   (1:M+1)); speed_ziriv    (:) = missing_value
+ !endif
  allocate (WU_(1:M+1),WV_(1:M+1),GAMT(1:M+1),GAMU(1:M+1), &
  &  GAMV(1:M+1),TF(1:M+1),KLengu(1:M+1)) 
  allocate (num(1:M+1))