aim_sWght1 = 0.5 _d 0+(dTprd-0.5 _d 0)*aim_surfForc_TransRatio
_RL aim_surfForc_TimePeriod, aim_surfForc_TransRatio
& aim_surfForc_TimePeriod, aim_surfForc_TransRatio,
aim_surfForc_TransRatio = 1.
CALL WRITE_0D_RL(aim_surfForc_TransRatio, INDEX_NONE,
& aim_surfForc_TransRatio, aim_surfPotTemp,