diff_probeをsubroutineに diff_probe_sub.f90