From d5544ad8b2bbdd1ca40a98b03a09b3b19894ac03 Mon Sep 17 00:00:00 2001 From: HartmutBorth <hartmut.borth@uni-hamburg.de> Date: Tue, 15 Nov 2016 16:05:49 +0100 Subject: [PATCH] modified simulations --- cat/src/simmod.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cat/src/simmod.f90 b/cat/src/simmod.f90 index 74d9ac0..9d2bf13 100644 --- a/cat/src/simmod.f90 +++ b/cat/src/simmod.f90 @@ -166,11 +166,11 @@ select case(ysim) do jx = 1, ngx if ( jx .ge. ngx/2+1-scl*(w1+w2) .and. & jx .le. ngx/2-scl*w1 ) then - gpvar(jx,:) = -qmax + gpvar(jx,:) = qmax endif if ( jx .ge. ngx/2+1+scl*w1 .and. & jx .le. ngx/2+scl*(w1+w2) ) then - gpvar(jx,:) = qmax + gpvar(jx,:) = -qmax endif enddo call sim_wrtgp(gpvar,qfrccde,1) -- GitLab