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.

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%divergence_source)) deallocate(fields%divergence_source)
      if (allocated(fields%projection_rho)) deallocate(fields%projection_rho)
      if (allocated(fields%projection_divergence_source)) deallocate(fields%projection_divergence_source)
      if (allocated(fields%mass_flux)) deallocate(fields%mass_flux)
      if (allocated(fields%rhs_old)) deallocate(fields%rhs_old)

      fields%rhs_old_valid = .false.
   end subroutine finalize_fields