From 3d1ac2b8a8947a588568685c184f61773ed12925 Mon Sep 17 00:00:00 2001
From: Joern Behrens <joern.behrens@uni-hamburg.de>
Date: Thu, 17 Feb 2022 16:42:00 +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 bad1c60..16b1ee9 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-1
+ i_start= i_stcuv+ i_layerid-2
i_uvpointer = (/ ((i_start+i_cnt), i_cnt=1,GRID_dimension) /)
r_alpha= -r_alpha
IF(present(i_newsdepth)) THEN
--
GitLab