finalize_fields Subroutine

public subroutine finalize_fields(fields)

Deallocates all arrays and resets validity flags.

Arguments

Type IntentOptional Attributes Name
type(flow_fields_t), intent(inout) :: fields

The container to be cleared.

Called by

proc~~finalize_fields~~CalledByGraph proc~finalize_fields mod_fields::finalize_fields proc~allocate_fields mod_fields::allocate_fields proc~allocate_fields->proc~finalize_fields program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~finalize_fields proc~initialize_fields mod_fields::initialize_fields program~lowmach_react_hex->proc~initialize_fields proc~initialize_fields->proc~allocate_fields

Source Code

   subroutine finalize_fields(fields)
      type(flow_fields_t), intent(inout) :: fields

      if (allocated(fields%u)) deallocate(fields%u)
      if (allocated(fields%u_old)) deallocate(fields%u_old)
      if (allocated(fields%u_star)) deallocate(fields%u_star)

      if (allocated(fields%p)) deallocate(fields%p)
      if (allocated(fields%phi)) deallocate(fields%phi)
      if (allocated(fields%div)) deallocate(fields%div)

      if (allocated(fields%face_flux)) deallocate(fields%face_flux)
      if (allocated(fields%rhs_old)) deallocate(fields%rhs_old)

      fields%rhs_old_valid = .false.
   end subroutine finalize_fields