_RL Tf0kel
& Tf0kel, Rgas,
WRITE(iUnit,*) 'BlkF: Tf0kel =',Tf0kel
& Tf0kel, Rgas, xkar, stefan,
Tf0kel = celsius2K
Tsf=Tsf_in+Tf0kel
Tsf = tsfCel+Tf0kel
& Tf0kel, Tmlt1,
WRITE(iUnit,*) 'ThSI: Tf0kel =',Tf0kel
& Tf0kel,
& .AND. Tair(i,j,bi,bj).LE.Tf0kel ) THEN