Skip to content
Snippets Groups Projects
Commit d5544ad8 authored by HartmutBorth's avatar HartmutBorth
Browse files

modified simulations

parent 18cdcf68
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
cat/src/simmod.f90
+ 2
− 2
View file @ d5544ad8
...@@ -166,11 +166,11 @@ select case(ysim) ...@@ -166,11 +166,11 @@ select case(ysim)
do jx = 1, ngx do jx = 1, ngx
if ( jx .ge. ngx/2+1-scl*(w1+w2) .and. & if ( jx .ge. ngx/2+1-scl*(w1+w2) .and. &
jx .le. ngx/2-scl*w1 ) then jx .le. ngx/2-scl*w1 ) then
gpvar(jx,:) = -qmax gpvar(jx,:) = qmax
endif endif
if ( jx .ge. ngx/2+1+scl*w1 .and. & if ( jx .ge. ngx/2+1+scl*w1 .and. &
jx .le. ngx/2+scl*(w1+w2) ) then jx .le. ngx/2+scl*(w1+w2) ) then
gpvar(jx,:) = qmax gpvar(jx,:) = -qmax
endif endif
enddo enddo
call sim_wrtgp(gpvar,qfrccde,1) call sim_wrtgp(gpvar,qfrccde,1)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment