Searched refs:rcp (Results 1 – 1 of 1) sorted by relevance
287 real*8 rGNa(npro,nsd), rNa(npro), rcp(npro), tmp(npro) local299 rcp = one ! rho * cp302 rNa = rcp*(tmps*Sdot + uMod(:,1) * gradS(:,1)309 tmp = rcp * tauS * (rLS -src)