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