From 027a2f1abed5daed5bca69387d1c30384c1ba5a3 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Tue, 16 May 2023 16:31:53 -0400 Subject: [PATCH] Changed behavior so lrhill_present is only set by the parameter input file to give the user the option to set a fixed value as in the previous versions. --- src/swiftest/swiftest_io.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index 8cb720ec0..96f974362 100644 --- a/src/swiftest/swiftest_io.f90 +++ b/src/swiftest/swiftest_io.f90 @@ -983,7 +983,6 @@ module subroutine swiftest_io_netcdf_open(self, param, readonly) ! Optional variables The User Doesn't Need to Know About status = nf90_inq_varid(nc%id, nc%mass_varname, nc%mass_varid) status = nf90_inq_varid(nc%id, nc%rhill_varname, nc%rhill_varid) - param%lrhill_present = (status == NF90_NOERR) status = nf90_inq_varid(nc%id, nc%npl_varname, nc%npl_varid) status = nf90_inq_varid(nc%id, nc%status_varname, nc%status_varid) status = nf90_inq_varid(nc%id, nc%ntp_varname, nc%ntp_varid) @@ -1232,7 +1231,6 @@ module function swiftest_io_netcdf_read_frame_system(self, nc, param) result(ier status = nf90_get_var(nc%id, nc%rhill_varid, rtemp, start=[1, tslot], count=[idmax,1]) if (status == NF90_NOERR) then pl%rhill(:) = pack(rtemp, plmask) - param%lrhill_present = .true. end if end if