PFC热固耦合——深埋岩石传热

restore jiajiaojie

configure thermalset thermal on mechanical oncontact thermal model ThermalPipe ball thermal attribute temperature 300wall thermal attribute temperature 300ball thermal attribute sheat 0.84e1 thexp 8.0e-6ball thermal property thres 0.1

wall thermal attribute temperature 380 range id 4ball group left range x [-wlx*0.5] [-wlx*0.5 rdmax*2.0]ball thermal attribute  temperature 380 range group leftball thermal fix range group left

[count=1][baocunpinlv=0.05][time_record=mech.age-1]def savefile    if mech.age-time_record > baocunpinlv then        filename=string.build("jieguo%1",count)        command            save @filename        endcommand        time_record=mech.age        count  =1    endif    endset fish callback -1.0 @savefile

set timestep fix 1e-5cycle 1

solve thermal age 1.0