finalize_transport Subroutine

public subroutine finalize_transport(transport)

Safely deallocates transport property fields.

Arguments

Type IntentOptional Attributes Name
type(transport_properties_t), intent(inout) :: transport

Called by

proc~~finalize_transport~~CalledByGraph proc~finalize_transport mod_transport_properties::finalize_transport program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~finalize_transport

Source Code

   subroutine finalize_transport(transport)
      type(transport_properties_t), intent(inout) :: transport

      if (allocated(transport%rho)) deallocate(transport%rho)
      if (allocated(transport%mu)) deallocate(transport%mu)
      if (allocated(transport%nu)) deallocate(transport%nu)
      if (allocated(transport%lambda)) deallocate(transport%lambda)
      if (allocated(transport%diffusivity)) deallocate(transport%diffusivity)
   end subroutine finalize_transport