link ../../libf_gcm/phymars/def_var.F90