link ../../libf_gcm/phymars/iniwritesoil.F90