2012-10-15 17:43:49 +00:00
|
|
|
subroutine redsync(ss,ntrperiod,ihsym,iz,red)
|
|
|
|
|
|
|
|
|
|
Parameter (NSMAX=22000)
|
|
|
|
|
real*4 ss(184,NSMAX)
|
|
|
|
|
real*4 red(NSMAX)
|
2012-10-22 19:18:24 +00:00
|
|
|
include 'jt9sync.f90'
|
2012-10-15 17:43:49 +00:00
|
|
|
|
|
|
|
|
lagmax=9
|
|
|
|
|
if(ntrperiod.eq.2) lagmax=5
|
|
|
|
|
if(ntrperiod.eq.5) lagmax=2
|
|
|
|
|
if(ntrperiod.eq.10) lagmax=1
|
|
|
|
|
if(ntrperiod.eq.30) lagmax=1
|
|
|
|
|
|
|
|
|
|
do i=1,iz
|
|
|
|
|
smax=0.
|
|
|
|
|
do lag=-lagmax,lagmax
|
|
|
|
|
sig=0.
|
|
|
|
|
do j=1,16
|
2012-10-22 19:18:24 +00:00
|
|
|
k=ii2(j)+lag
|
2012-11-14 17:02:54 +00:00
|
|
|
if(k.ge.5 .and. k.le.ihsym) then
|
|
|
|
|
sig=sig + ss(k,i) - 0.5*(ss(k-2,i)+ss(k-4,i))
|
2012-10-15 17:43:49 +00:00
|
|
|
endif
|
|
|
|
|
enddo
|
2012-11-14 17:02:54 +00:00
|
|
|
if(sig.gt.smax) smax=sig
|
2012-10-15 17:43:49 +00:00
|
|
|
enddo
|
2012-10-22 19:28:47 +00:00
|
|
|
red(i)=smax
|
2012-10-15 17:43:49 +00:00
|
|
|
enddo
|
2012-11-14 17:02:54 +00:00
|
|
|
call pctile(red,iz,50,xmed)
|
|
|
|
|
if(xmed.le.0.0) xmed=1.0
|
|
|
|
|
red=red/xmed
|
2012-11-14 17:17:02 +00:00
|
|
|
smax=0.
|
|
|
|
|
do i=1,iz
|
2012-11-19 23:46:44 +00:00
|
|
|
red(i)=0.2*db(red(i))
|
|
|
|
|
! red(i)=2.0*sqrt(red(i))
|
2012-11-14 17:17:02 +00:00
|
|
|
smax=max(smax,red(i))
|
|
|
|
|
enddo
|
2012-11-14 18:19:36 +00:00
|
|
|
h=10.
|
2012-11-14 17:17:02 +00:00
|
|
|
if(smax.gt.h) red=red*(h/smax)
|
2012-10-15 17:43:49 +00:00
|
|
|
|
|
|
|
|
return
|
|
|
|
|
end subroutine redsync
|
