link ../../libf_gcm/phymars/readtesassim.F90