From 97ea98aaf2d598c6a968f4684986a6969a3c357e Mon Sep 17 00:00:00 2001 From: Peter Powers Date: Wed, 12 Oct 2016 10:53:29 -0600 Subject: [PATCH] added vs30 switches for other GMMs --- src/hazFXnga13l.f | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/hazFXnga13l.f b/src/hazFXnga13l.f index d91bda9..f354a26 100644 --- a/src/hazFXnga13l.f +++ b/src/hazFXnga13l.f @@ -1152,8 +1152,14 @@ c & weight2 , mb to M conv." read(1,*) iatten(ip,ia),wt(ip,ia,1),wtdist(ip,ia),wt(ip,ia,2), & icode(ip,ia) -c insure that Campbell CEUS relation is called with negative ipia when vs30 > 1200 m/s. Mod sept 21 2016 SH - if(iatten(ip,ia).eq.10 .and. vs30 .gt.1200.)iatten(ip,ia)= -10 +c insure that Toro, Frankel, Somerville, and Campbell CEUS relations are called with +c negative ipia when vs30 > 1200 m/s. Mod Oct 12 2016 pmpowers + if(vs30.gt.1200.)then + if(iatten(ip,ia).eq.2) iatten(ip,ia)= -2 + if(iatten(ip,ia).eq.6) iatten(ip,ia)= -6 + if(iatten(ip,ia).eq.7) iatten(ip,ia)= -7 + if(iatten(ip,ia).eq.10) iatten(ip,ia)= -10 + endif ipia=iatten(ip,ia) if(ipia.eq.35)then F_inferred=1.0