Code: Select all
tau=Tobc_out(itrc,ng,iwest)
IF ((dTdt*dTdx).lt.0.0_r8) THEN
tau=Tobc_in(itrc,ng,iwest)
ELSE
tau=tau*dt(ng)
END IF
Code: Select all
IF ((dTdt*dTdx).lt.0.0_r8) THEN
tau=Tobc_in(ng,iwest)
ELSE
tau=Tobc_out(ng,iwest)
END IF
tau=tau*dt(ng)