link ../../libf_gcm/phymars/swr_fouquart.F