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))