diff --git a/flash2d/src/options-sphere/SLM_initial_stacked.f90 b/flash2d/src/options-sphere/SLM_initial_stacked.f90 index 65995684486733f42a976ede971c40c9326c4598..72efcbb1828d984e8188d8c9d786c9bb2721ccdc 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