import_field_utils.f90

Go to the documentation of this file.

! Copyright (c) 2019-2026, The Neko Authors
! All rights reserved.
!
! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions
! are met:
!
!   * Redistributions of source code must retain the above copyright
!     notice, this list of conditions and the following disclaimer.
!
!   * Redistributions in binary form must reproduce the above
!     copyright notice, this list of conditions and the following
!     disclaimer in the documentation and/or other materials provided
!     with the distribution.
!
!   * Neither the name of the authors nor the names of its
!     contributors may be used to endorse or promote products derived
!     from this software without specific prior written permission.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
! FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
! COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
! INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
! BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
! LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
! CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
! LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
! ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGE.
!
module import_field_utils
  use fld_file_data, only : fld_file_data_t
  use file, only : file_t
  use num_types, only : rp
  use field, only : field_t
  use field_list, only : field_list_t
  use utils, only : neko_error, extract_fld_file_index, &
       filename_chsuffix, neko_fname_len
  use logger, only : log_size, neko_log
  use device, only : host_to_device
  implicit none
  private
 
  public :: import_fields
 
 
contains
 
  subroutine import_fields(fname, mesh_fname, u, v, w, p, t, s_target_list, &
       s_index_list, interpolate, tolerance)
    character(len=*), intent(in) :: fname
    character(len=*), intent(in), optional :: mesh_fname
    type(field_t), pointer, intent(inout), optional :: u,v,w,p,t
    type(field_list_t), intent(inout), optional :: s_target_list
    integer, intent(in), optional :: s_index_list(:)
    logical, intent(in), optional :: interpolate
    real(kind=rp), intent(in), optional :: tolerance
 
    character(len=LOG_SIZE) :: log_buf
    integer :: sample_idx, sample_mesh_idx, i
    character(len=NEKO_FNAME_LEN) :: fname_, mesh_fname_
 
    logical :: interpolate_
 
    type(file_t) :: f
    type(fld_file_data_t) :: fld_data
 
    ! ---- Default values
    interpolate_ = .false.
    if (present(interpolate)) interpolate_ = interpolate
    mesh_fname_ = "none"
    if (present(mesh_fname)) mesh_fname_ = trim(mesh_fname)
    ! ----
 
    call neko_log%section("Import fields")
    call neko_log%message("File name     : " // trim(fname))
    write (log_buf, '(A,L1)') "Interpolation : ", interpolate_
    call neko_log%message(log_buf)
 
    !
    ! Handling of file names and reading of data
    !
 
    ! Extract sample index from the file name
    sample_idx = extract_fld_file_index(fname, -1)
 
    if (sample_idx .eq. -1) &
         call neko_error("Invalid file name for the initial condition. The&
    & file format must be e.g. 'mean0.f00001'")
 
    ! Change from "field0.f000*" to "field0.fld" for the fld reader
    call filename_chsuffix(fname, fname_, 'fld')
 
    ! Initialize file object
    call f%init(trim(fname_))
 
    ! If interpolate, check if we need to read the mesh file
    if (interpolate_) then
 
       if (present(tolerance)) then
          write (log_buf, '(A,ES12.6)') "Tolerance     : ", tolerance
          call neko_log%message(log_buf)
       end if
 
       ! If no mesh file is specified, use the default file name
       if (mesh_fname_ .eq. "none") then
          mesh_fname_ = trim(fname_)
          sample_mesh_idx = sample_idx
       else
          mesh_fname_ = trim(mesh_fname)
 
          ! Extract sample index from the mesh file name
          sample_mesh_idx = extract_fld_file_index(mesh_fname_, -1)
 
          if (sample_mesh_idx .eq. -1) then
             call neko_error("Invalid file name for the initial condition." // &
                  "The file format must be e.g. 'mean0.f00001'")
          end if
 
          write (log_buf, '(A,A)') "Mesh file     : ", &
               trim(mesh_fname_)
          call neko_log%message(log_buf)
 
       end if ! if mesh_file_name .eq. none
 
       ! Read the mesh coordinates if they are not in our fld file
       if (sample_mesh_idx .ne. sample_idx) then
          call f%set_counter(sample_mesh_idx)
          call f%read(fld_data)
       end if
 
    end if
 
    ! Read the field file containing (u,v,w,p)
    call f%set_counter(sample_idx)
    call f%read(fld_data)
 
    !
    ! Copy all vectors to device (GPU) since everything is read on the CPU
    !
    if (present(u)) call fld_data%u%copy_from(host_to_device, .true.)
    if (present(v)) call fld_data%v%copy_from(host_to_device, .true.)
    if (present(w)) call fld_data%w%copy_from(host_to_device, .true.)
    if (present(p)) call fld_data%p%copy_from(host_to_device, .true.)
    if (present(t)) call fld_data%t%copy_from(host_to_device, .true.)
    if (present(s_target_list)) then
 
       if (present(s_index_list)) then
          if (size(s_index_list) .ne. s_target_list%size()) then
             call neko_error("Scalar lists must have same size!")
          end if
 
          do i = 1, size(s_index_list)
             ! Take care that if we set i=0 we want temperature
             if (s_index_list(i) .eq. 0) then
                call fld_data%t%copy_from(host_to_device, .true.)
             else
                ! For scalar fields, require indices in 1:this%n_scalars
                if (s_index_list(i) < 1 .or. &
                     s_index_list(i) > fld_data%n_scalars) then
                   call neko_error("s_index_list entry out of bounds")
                end if
                call fld_data%s(s_index_list(i))%copy_from(host_to_device, &
                     .true.)
             end if
          end do
       else
          do i = 1, s_target_list%size()
             call fld_data%s(i)%copy_from(host_to_device, .true.)
          end do
       end if ! if present s_index_list
 
    end if ! present s_tgt
 
 
    if (interpolate_) then
       ! Sync coordinates to device for the interpolation
       call fld_data%x%copy_from(host_to_device, .false.)
       call fld_data%y%copy_from(host_to_device, .false.)
       call fld_data%z%copy_from(host_to_device, .true.)
    end if
 
    ! Call the import of fields
    call fld_data%import_fields(u, v, w, p, t, s_target_list, s_index_list, &
         interpolate_, tolerance = tolerance)
 
    call neko_log%end_section()
    call fld_data%free()
 
  end subroutine import_fields
 
end module import_field_utils