Searched refs:conc_BC (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | dtn.f | 414 real*8 dt, conc_BC, flux_BC local
438 conc_BC = tmp(1)
450 i = int ( (conc_BC - table(0,1,itype) ) / dx(itype))
452 if( conc_BC .lt. table(0,1,itype))then
454 conc_BC = table(i,1,itype)
455 elseif( conc_BC .gt. table(numdata(itype),1,itype)) then
457 conc_BC = table(i,1,itype)
461 dt = conc_BC - table(i,1,itype)
|