From 60dd8d23805536ff9664a9c8c94cc11546094c73 Mon Sep 17 00:00:00 2001
From: Victor Stepanenko <vstepanenkomeister@gmail.com>
Date: Wed, 25 Nov 2020 21:51:05 +0300
Subject: [PATCH] Allocation of _ziriv arrays is now made always

---
 source/model/init.f90 | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/source/model/init.f90 b/source/model/init.f90
index 384bd2c..d22ca52 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)) 
-- 
GitLab