From 04fc11ecdfcb7462df7880092c9b202e888402cb Mon Sep 17 00:00:00 2001
From: Joern Behrens <joern.behrens@uni-hamburg.de>
Date: Thu, 17 Feb 2022 17:02:15 +0100
Subject: [PATCH] fixed a bug in SLM_simple velo plotting
---
flash2d/src/options-sphere/SLM_simple_stacked.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/flash2d/src/options-sphere/SLM_simple_stacked.f90 b/flash2d/src/options-sphere/SLM_simple_stacked.f90
index 16b1ee9..6b9ce24 100644
--- a/flash2d/src/options-sphere/SLM_simple_stacked.f90
+++ b/flash2d/src/options-sphere/SLM_simple_stacked.f90
@@ -197,7 +197,7 @@
!-SLM--------- put alpha values to u and v field entries
- i_start= i_stcuv+ i_layerid-2
+ i_start= (i_stcuv-1)+ GRID_dimension*(i_layerid-1)
i_uvpointer = (/ ((i_start+i_cnt), i_cnt=1,GRID_dimension) /)
r_alpha= -r_alpha
IF(present(i_newsdepth)) THEN
--
GitLab