diff --git a/flash2d/src/options-sphere/SLM_simple_stacked.f90 b/flash2d/src/options-sphere/SLM_simple_stacked.f90 index cfad90f0157f68be550792da11c2870ee0c7795d..bad1c60c13899657d7e755b27de8e25c8139ed77 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,:), &