load_1D_FS_from_hdf5 Subroutine

  1. korc_fields.f90
  2. korc_fields
  3. load_1D_FS_from_hdf5

public subroutine load_1D_FS_from_hdf5(params, F)

Arguments

Type IntentOptional AttributesName
type(KORC_PARAMS), intent(in) :: params
type(FIELDS), intent(inout) :: F

Calls

proc~~load_1d_fs_from_hdf5~~CallsGraph proc~load_1d_fs_from_hdf5 load_1D_FS_from_hdf5 interface~load_array_from_hdf5 load_array_from_hdf5 proc~load_1d_fs_from_hdf5->interface~load_array_from_hdf5 h5fclose_f h5fclose_f proc~load_1d_fs_from_hdf5->h5fclose_f h5fopen_f h5fopen_f proc~load_1d_fs_from_hdf5->h5fopen_f proc~rload_2d_array_from_hdf5 rload_2d_array_from_hdf5 interface~load_array_from_hdf5->proc~rload_2d_array_from_hdf5 proc~rload_3d_array_from_hdf5 rload_3d_array_from_hdf5 interface~load_array_from_hdf5->proc~rload_3d_array_from_hdf5 proc~rload_1d_array_from_hdf5 rload_1d_array_from_hdf5 interface~load_array_from_hdf5->proc~rload_1d_array_from_hdf5 proc~korc_abort korc_abort proc~rload_2d_array_from_hdf5->proc~korc_abort h5dclose_f h5dclose_f proc~rload_2d_array_from_hdf5->h5dclose_f h5dread_f h5dread_f proc~rload_2d_array_from_hdf5->h5dread_f proc~rload_3d_array_from_hdf5->proc~korc_abort proc~rload_3d_array_from_hdf5->h5dclose_f proc~rload_3d_array_from_hdf5->h5dread_f proc~rload_1d_array_from_hdf5->proc~korc_abort proc~rload_1d_array_from_hdf5->h5dclose_f proc~rload_1d_array_from_hdf5->h5dread_f mpi_abort mpi_abort proc~korc_abort->mpi_abort

Called by

proc~~load_1d_fs_from_hdf5~~CalledByGraph proc~load_1d_fs_from_hdf5 load_1D_FS_from_hdf5 proc~initialize_fields initialize_fields proc~initialize_fields->proc~load_1d_fs_from_hdf5 program~main main program~main->proc~initialize_fields

Contents

Source Code

load_1D_FS_from_hdf5

Source Code

  subroutine load_1D_FS_from_hdf5(params,F)
    TYPE(KORC_PARAMS), INTENT(IN)          :: params
    TYPE(FIELDS), INTENT(INOUT)            :: F
    CHARACTER(MAX_STRING_LENGTH)           :: filename
    CHARACTER(MAX_STRING_LENGTH)           :: dset
    INTEGER(HID_T)                         :: h5file_id
    INTEGER                                :: h5error


    filename = TRIM(params%magnetic_field_filename)
    call h5fopen_f(filename, H5F_ACC_RDONLY_F, h5file_id, h5error)
    if (h5error .EQ. -1) then
       write(output_unit_write,'("KORC ERROR: Something went wrong in: load_field_data_from_hdf5 --> h5fopen_f")')
    end if

    dset = "/PSIP1D"
    call load_array_from_hdf5(h5file_id,dset,F%PSIP_1D)

    dset = "/dMagPsiSqdPsiP"
    call load_array_from_hdf5(h5file_id,dset,F%dMagPsiSqdPsiP)

    dset = "/ddMagPsiSqdPsiPSq"
    call load_array_from_hdf5(h5file_id,dset,F%ddMagPsiSqdPsiPSq)  

    call h5fclose_f(h5file_id, h5error)
    if (h5error .EQ. -1) then
       write(output_unit_write,'("KORC ERROR: Something went wrong in: load_field_data_from_hdf5 --> h5fclose_f")')
    end if
  end subroutine load_1D_FS_from_hdf5