Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//phypluto/cooling_stock and phypluto/cooling_stock
diff /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//phypluto/surfprop.F90 phypluto/surfprop.F90
363,369c363,369
<                   !if (albedodat(ig).lt.0.25) then
<                   !    albedo(ig)=alb_tho_eq
<                   !else if (albedodat(ig).lt.0.40) then
<                   !    albedo(ig)=0.35
<                   !else if (albedodat(ig).lt.0.70) then
<                   !    albedo(ig)=0.51
<                   !endif
---
>                   if (albedodat(ig).lt.0.25) then
>                       albedo(ig)=alb_tho_eq
>                   else if (albedodat(ig).lt.0.40) then
>                       albedo(ig)=0.35
>                   else if (albedodat(ig).lt.0.70) then
>                       albedo(ig)=0.51
>                   endif
diff /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//phypluto/tpindex.F phypluto/tpindex.F
92,93c92,93
<       !IF (MT.eq.1) THEN
<          !TW=tref(1)*1.01
---
>       IF (MT.eq.1) THEN
>          TW=tref(1)*1.01
96c96
<       !ENDIF
---
>       ENDIF