From 475d1c405a9b9034b33351c2bf8c968cef027e09 Mon Sep 17 00:00:00 2001
From: Joern Behrens <joern.behrens@uni-hamburg.de>
Date: Wed, 16 Feb 2022 19:48:36 +0100
Subject: [PATCH] fixed a bug in SLM_simple velo plotting
---
flash2d/src/options-sphere/SLM_simple_stacked.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/flash2d/src/options-sphere/SLM_simple_stacked.f90 b/flash2d/src/options-sphere/SLM_simple_stacked.f90
index cfad90f..bad1c60 100644
--- a/flash2d/src/options-sphere/SLM_simple_stacked.f90
+++ b/flash2d/src/options-sphere/SLM_simple_stacked.f90
@@ -197,8 +197,8 @@
!-SLM--------- put alpha values to u and v field entries
- i_start= i_layerid-1
- i_uvpointer = (/ (i_start+i_cnt, i_cnt=1,GRID_dimension) /)
+ i_start= i_stcuv+ i_layerid-1
+ i_uvpointer = (/ ((i_start+i_cnt), i_cnt=1,GRID_dimension) /)
r_alpha= -r_alpha
IF(present(i_newsdepth)) THEN
CALL grid_putinfo(p_ghand(i_timeplus), r_nodevalues=r_alpha(1:GRID_dimension,:), &
--
GitLab