From 33282c6ba13e11405d12dd030384db4d4f16293a Mon Sep 17 00:00:00 2001 From: "Minton, David A" Date: Sat, 17 Dec 2022 15:56:47 -0500 Subject: [PATCH] Update encounter_util.f90 Fixed name of subroutine --- src/encounter/encounter_util.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/encounter/encounter_util.f90 b/src/encounter/encounter_util.f90 index 0297c769c..e6a786be2 100644 --- 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 \ No newline at end of file +end submodule s_encounter_util