Numerical study of transient heat transfer in semitransparent porous medium