Lines Matching refs:ValueImpt
33 real*8, allocatable :: QHistImp(:,:), ValueImpt(:,:,:) variable
359 allocate (ValueImpt(nptsImpmax,2,numImpSrfs))
360 ValueImpt=0
365 read(817,*) (ValueImpt(j,n,k),n=1,2) ! n=1 time, 2 value
372 ValueListImp(ntimeptpT+1,:) = ValueImpt(1,2,:) !Z(time=0), last entry
373 ValueListImp(1,:) = ValueImpt(1,2,:) !Z(time=0)=Z(time=T)
390 nper=ctime/ValueImpt(nlast,1,k)!number of periods completed to shift off
391 ptime = ctime-nper*ValueImpt(nlast,1,k) ! now time in periodic domain
395 if(ValueImpt(j,1,k).gt.ptime) then ! this is upper bound, j-1 is lower
396 wr=(ptime-ValueImpt(j-1,1,k))
397 & / ( ValueImpt(j,1,k)-ValueImpt(j-1,1,k) )
398 ValueListImp(jstep,k)= ValueImpt(j-1,2,k)*(one-wr)
399 & + ValueImpt(j,2,k)*wr