From 465827a206c867bd078a559ab4c788a58ec978fa Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 11 Sep 2023 14:40:47 -0400 Subject: [PATCH] Fixed EXCEPT_THIS_ONE statements --- src/realistic/realistic_crater_topography.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/realistic/realistic_crater_topography.f90 b/src/realistic/realistic_crater_topography.f90 index 96325400..81cb1dab 100644 --- a/src/realistic/realistic_crater_topography.f90 +++ b/src/realistic/realistic_crater_topography.f90 @@ -68,7 +68,7 @@ subroutine make_realistic_crater(user,surf,crater,deltaMtot) use module_globals use module_util use module_crater - use module_realistic, EXCEPT_THIS_ONE => realistic_rim + use module_realistic, EXCEPT_THIS_ONE => make_realistic_crater implicit none ! in and out @@ -401,7 +401,7 @@ end subroutine Calculate_am_wl_phase_from_targetPSD subroutine Make_outline(arc_length,psd_1D,amplitude,wavelength,phase,noise_component) use module_globals - use module_realistic, EXCEPT_THIS_ONE => Create_rim + use module_realistic, EXCEPT_THIS_ONE => Make_outline implicit none ! in and out real(DP),intent(in) :: arc_length