public subroutine finish_initial_values_overrides(overrides_obj)
Type Bound
initial_values_overrides_type
Arguments
Source Code
subroutine finish_initial_values_overrides(overrides_obj)
use file_utils, only: error_unit
use mp, only: proc0
implicit none
class(initial_values_overrides_type), intent(in out) :: overrides_obj
if (.not. overrides_obj%init) then
if (proc0) write (error_unit(), *) "WARNING: Called finish_initial_values_overrides on an uninitialized object"
return
end if
overrides_obj%init = .false.
overrides_obj%override = .false.
overrides_obj%vnmult = 0.0
if (allocated(overrides_obj%g)) deallocate(overrides_obj%g)
if (allocated(overrides_obj%gexp_1)) deallocate(overrides_obj%gexp_1)
if (allocated(overrides_obj%gexp_2)) deallocate(overrides_obj%gexp_2)
if (allocated(overrides_obj%gexp_3)) deallocate(overrides_obj%gexp_3)
if (allocated(overrides_obj%phi)) deallocate(overrides_obj%phi)
if (allocated(overrides_obj%apar)) deallocate(overrides_obj%apar)
if (allocated(overrides_obj%bpar)) deallocate(overrides_obj%bpar)
end subroutine finish_initial_values_overrides