validate_boundary_arrays Subroutine

private subroutine validate_boundary_arrays(params)

Ensures all boundary patch names and types are non-empty.

Arguments

Type IntentOptional Attributes Name
type(case_params_t), intent(in) :: params

Calls

proc~~validate_boundary_arrays~~CallsGraph proc~validate_boundary_arrays mod_input::validate_boundary_arrays proc~fatal_error mod_kinds::fatal_error proc~validate_boundary_arrays->proc~fatal_error

Called by

proc~~validate_boundary_arrays~~CalledByGraph proc~validate_boundary_arrays mod_input::validate_boundary_arrays proc~validate_params mod_input::validate_params proc~validate_params->proc~validate_boundary_arrays proc~read_case_params mod_input::read_case_params proc~read_case_params->proc~validate_params program~lowmach_react_hex lowmach_react_hex program~lowmach_react_hex->proc~read_case_params

Source Code

   subroutine validate_boundary_arrays(params)
      type(case_params_t), intent(in) :: params

      integer :: i

      do i = 1, params%n_patches
         if (len_trim(params%patch_name(i)) == 0) then
            call fatal_error('input', 'patch_name entry cannot be empty')
         end if

         if (len_trim(params%patch_type(i)) == 0) then
            call fatal_error('input', 'patch_type entry cannot be empty')
         end if

         if (params%enable_energy .and. params%patch_T(i) <= zero) then
            call fatal_error('input', 'patch_T entry must be positive when energy is enabled')
         end if
      end do
   end subroutine validate_boundary_arrays