Skip to content
Snippets Groups Projects
Commit 04fc11ec authored by Behrens, Prof. Dr. Jörn's avatar Behrens, Prof. Dr. Jörn
Browse files

fixed a bug in SLM_simple velo plotting

parent 3d1ac2b8
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
flash2d/src/options-sphere/SLM_simple_stacked.f90
+ 1
− 1
View file @ 04fc11ec
...@@ -197,7 +197,7 @@ ...@@ -197,7 +197,7 @@
!-SLM--------- put alpha values to u and v field entries !-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) /) i_uvpointer = (/ ((i_start+i_cnt), i_cnt=1,GRID_dimension) /)
r_alpha= -r_alpha r_alpha= -r_alpha
IF(present(i_newsdepth)) THEN IF(present(i_newsdepth)) THEN
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment