Skip to content
Snippets Groups Projects
Commit 475d1c40 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 58545ff0
No related branches found
No related tags found
No related merge requests found
......@@ -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,:), &
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment