link ../../libf_gcm/phymars/calltherm_interface.F90