Update encounter_util.f90

Fixed name of subroutine
MintonGroup · Dec 17, 2022 · 33282c6 · 33282c6
1 parent b29b1bf
commit 33282c6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/encounter/encounter_util.f90 b/src/encounter/encounter_util.f90
@@ -517,7 +517,7 @@ module subroutine encounter_util_snapshot(self, param, system, t, arg)
 
                               ! Save the snapshot
                               param%encounter_history%nid = param%encounter_history%nid + ntp_snap + npl_snap
-                              call encounter_util_save_encounter(param%encounter_history,snapshot)
+                              call encounter_util_save_snapshot(param%encounter_history,snapshot)
                            case("closest")
                               associate(plplenc_list => system%plplenc_list, pltpenc_list => system%pltpenc_list)
                                  if (any(plplenc_list%lclosest(:))) then
@@ -576,7 +576,7 @@ module subroutine encounter_util_snapshot(self, param, system, t, arg)
                                           pl_snap%vh(:,2) = vb(:,2) + vcom(:)
 
                                           call pl_snap%sort("id", ascending=.true.)
-                                          call encounter_util_save_encounter(param%encounter_history,snapshot)
+                                          call encounter_util_save_snapshot(param%encounter_history,snapshot)
                                        end if
                                     end do
 
@@ -605,4 +605,4 @@ end subroutine encounter_util_snapshot
 
 
 
-end submodule s_encounter_util
+end submodule s_encounter_util