Searched refs:ptime (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | bctint.f | 384 real*8 ctime, ptime local
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))
488 real*8 ctime, ptime local
495 ptime = ctime-nper*ValuePdist(nlast,1,k) ! now time in periodic domain
499 if(ValuePdist(j,1,k).gt.ptime) then ! this is upper bound, j-1 is lower
500 wr=(ptime-ValuePdist(j-1,1,k))
|