From 788945ee93215d536827b03aca4baecdddc3ffbf Mon Sep 17 00:00:00 2001
From: Joern Behrens <joern.behrens@uni-hamburg.de>
Date: Fri, 18 Mar 2022 22:59:15 +0100
Subject: [PATCH] corrected initial wind plotting
---
flash2d/src/options-sphere/SLM_initial_stacked.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/flash2d/src/options-sphere/SLM_initial_stacked.f90 b/flash2d/src/options-sphere/SLM_initial_stacked.f90
index 6599568..72efcbb 100644
--- a/flash2d/src/options-sphere/SLM_initial_stacked.f90
+++ b/flash2d/src/options-sphere/SLM_initial_stacked.f90
@@ -311,7 +311,7 @@
CALL grid_putinfo(p_ghand, i_arraypoint=i_valind, r_nodevalues= r_aux)
i_start= (i_stcuv-1)+ GRID_dimension*(i_lay-1)
i_uvp = (/ ((i_start+i_cnt), i_cnt=1,GRID_dimension) /)
- CALL grid_putinfo(p_ghand, i_arraypoint=i_uvp, r_nodevalues=r_alpha(1:GRID_dimension,:))
+ CALL grid_putinfo(p_ghand, i_arraypoint=i_uvp, r_nodevalues=r_uvw(1:GRID_dimension,:))
END DO layer_loop
!---------- deallocate workspace
--
GitLab