From e7465fa4dc67ffaec14a292838091e22f1f33bf8 Mon Sep 17 00:00:00 2001 From: Peter Powers Date: Thu, 13 Oct 2016 14:40:48 -0600 Subject: [PATCH] updated switch --- src/hazgridXnga13l.f | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/hazgridXnga13l.f b/src/hazgridXnga13l.f index afcc80f..e071ce1 100644 --- a/src/hazgridXnga13l.f +++ b/src/hazgridXnga13l.f @@ -1505,8 +1505,14 @@ c new dec 2005. read(1,*) iatten(ip,ia),wt(ip,ia,1),wtdist(ip,ia),wt(ip,ia,2), & icode(ip,ia) +c insure that 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.7) iatten(ip,ia)= -7 + if(iatten(ip,ia).eq.10) iatten(ip,ia)= -10 + endif 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 if(iatten(ip,ia).eq.10 .and. vs30 .gt.1200.)iatten(ip,ia)= -10 c special treatment for ASK13 and CY2013 models, if user wants to use measured Vs30 c option: if(iatten(ip,ia).eq.-34 .or. iatten(ip,ia).eq.-33)then