bff_init Subroutine

private subroutine bff_init(sf, fileString)

Uses

  • proc~~bff_init~~UsesGraph proc~bff_init t_boundaryFromFile%bff_init module~modgvec_io_netcdf MODgvec_IO_NETCDF proc~bff_init->module~modgvec_io_netcdf module~modgvec_globals MODgvec_Globals module~modgvec_io_netcdf->module~modgvec_globals netcdf netcdf module~modgvec_io_netcdf->netcdf iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

initialize class: read file and save data to class structure

Type Bound

t_boundaryFromFile

Arguments

Type IntentOptional Attributes Name
class(t_boundaryFromFile), intent(inout) :: sf

self
character(len=*), intent(in) :: fileString

Calls

proc~~bff_init~~CallsGraph proc~bff_init t_boundaryFromFile%bff_init proc~ncfile_init ncfile_init proc~bff_init->proc~ncfile_init proc~readnetcdf~2 ReadNETCDF proc~bff_init->proc~readnetcdf~2 proc~mpi_check_single_access mpi_check_single_access proc~ncfile_init->proc~mpi_check_single_access proc~ncfile_openfile t_ncfile%ncfile_openfile proc~ncfile_init->proc~ncfile_openfile proc~ncfile_closefile t_ncfile%ncfile_closefile proc~readnetcdf~2->proc~ncfile_closefile proc~ncfile_get_array t_ncfile%ncfile_get_array proc~readnetcdf~2->proc~ncfile_get_array proc~ncfile_get_scalar t_ncfile%ncfile_get_scalar proc~readnetcdf~2->proc~ncfile_get_scalar proc~ncfile_var_exists t_ncfile%ncfile_var_exists proc~readnetcdf~2->proc~ncfile_var_exists proc~ncfile_closefile->proc~mpi_check_single_access nf90_close nf90_close proc~ncfile_closefile->nf90_close proc~ncfile_handle_error t_ncfile%ncfile_handle_error proc~ncfile_closefile->proc~ncfile_handle_error proc~ncfile_get_array->proc~mpi_check_single_access nf90_get_var nf90_get_var proc~ncfile_get_array->nf90_get_var nf90_inq_varid nf90_inq_varid proc~ncfile_get_array->nf90_inq_varid nf90_inquire_dimension nf90_inquire_dimension proc~ncfile_get_array->nf90_inquire_dimension nf90_inquire_variable nf90_inquire_variable proc~ncfile_get_array->nf90_inquire_variable proc~ncfile_enter_groups t_ncfile%ncfile_enter_groups proc~ncfile_get_array->proc~ncfile_enter_groups proc~ncfile_get_array->proc~ncfile_handle_error proc~ncfile_get_scalar->proc~mpi_check_single_access proc~ncfile_get_scalar->nf90_get_var proc~ncfile_get_scalar->nf90_inq_varid proc~ncfile_get_scalar->proc~ncfile_enter_groups proc~ncfile_get_scalar->proc~ncfile_handle_error proc~ncfile_openfile->proc~mpi_check_single_access nf90_create nf90_create proc~ncfile_openfile->nf90_create nf90_open nf90_open proc~ncfile_openfile->nf90_open proc~ncfile_openfile->proc~ncfile_handle_error proc~ncfile_var_exists->proc~mpi_check_single_access proc~ncfile_var_exists->nf90_inq_varid proc~ncfile_var_exists->proc~ncfile_enter_groups proc~ncfile_enter_groups->proc~mpi_check_single_access proc~ncfile_enter_groups->proc~ncfile_openfile nf90_inq_ncid nf90_inq_ncid proc~ncfile_enter_groups->nf90_inq_ncid proc~ncfile_handle_error->proc~mpi_check_single_access nf90_strerror nf90_strerror proc~ncfile_handle_error->nf90_strerror

Called by

proc~~bff_init~~CalledByGraph proc~bff_init t_boundaryFromFile%bff_init proc~boundaryfromfile_new boundaryFromFile_new proc~boundaryfromfile_new->proc~bff_init

Source Code

SUBROUTINE bff_init(sf,fileString)
  ! MODULES
  USE MODgvec_io_netcdf, ONLY:ncfile_init
  IMPLICIT NONE
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
    CHARACTER(LEN=*)    , INTENT(IN   ) :: fileString
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! OUTPUT VARIABLES
    CLASS(t_boundaryFromFile), INTENT(INOUT) :: sf !! self
  !===================================================================================================================================
  WRITE(UNIT_stdOut,'(A)')'   READ BOUNDARY FROM NETCDF FILE "'//TRIM(FileString)//'" ...'
  sf%ncfile=TRIM(FileString)
  CALL ncfile_init(sf%nc,sf%ncfile,"r")
  CALL READNETCDF(sf)
  sf%initialized=.TRUE.
END SUBROUTINE bff_init