Skip to content
Snippets Groups Projects
Commit 60dd8d23 authored by Victor Stepanenko's avatar Victor Stepanenko
Browse files

Allocation of _ziriv arrays is now made always

parent be6f1e3f
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment