ncfile_end_def_mode Subroutine

public subroutine ncfile_end_def_mode(sf)

after creating a new file and making all definitions, one has to call end_def_mode

Type Bound

t_ncfile

Arguments

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

self

Calls

proc~~ncfile_end_def_mode~~CallsGraph proc~ncfile_end_def_mode t_ncfile%ncfile_end_def_mode nf90_enddef nf90_enddef proc~ncfile_end_def_mode->nf90_enddef proc~mpi_check_single_access mpi_check_single_access proc~ncfile_end_def_mode->proc~mpi_check_single_access proc~ncfile_handle_error t_ncfile%ncfile_handle_error proc~ncfile_end_def_mode->proc~ncfile_handle_error proc~ncfile_handle_error->proc~mpi_check_single_access nf90_strerror nf90_strerror proc~ncfile_handle_error->nf90_strerror

Called by

proc~~ncfile_end_def_mode~~CalledByGraph proc~ncfile_end_def_mode t_ncfile%ncfile_end_def_mode proc~writedatatonetcdf WriteDataToNETCDF proc~writedatatonetcdf->proc~ncfile_end_def_mode proc~visu_axisnb Visu_axisNB proc~visu_axisnb->proc~writedatatonetcdf proc~visufrenet VisuFrenet proc~visufrenet->proc~writedatatonetcdf proc~hmap_axisnb_init_params hmap_axisNB_init_params proc~hmap_axisnb_init_params->proc~visu_axisnb proc~hmap_frenet_init_params hmap_frenet_init_params proc~hmap_frenet_init_params->proc~visufrenet interface~t_hmap_axisnb t_hmap_axisNB interface~t_hmap_axisnb->proc~hmap_axisnb_init_params proc~hmap_axisnb_init hmap_axisNB_init interface~t_hmap_axisnb->proc~hmap_axisnb_init interface~t_hmap_frenet t_hmap_frenet interface~t_hmap_frenet->proc~hmap_frenet_init_params proc~hmap_frenet_init hmap_frenet_init interface~t_hmap_frenet->proc~hmap_frenet_init proc~hmap_axisnb_init->proc~hmap_axisnb_init_params proc~hmap_frenet_init->proc~hmap_frenet_init_params

Source Code

  SUBROUTINE ncfile_end_def_mode(sf)
    ! MODULES
    IMPLICIT NONE
    !-------------------------------------------------------------------------------------------------------------------------------
    ! INPUT VARIABLES
    !-------------------------------------------------------------------------------------------------------------------------------
    ! OUTPUT VARIABLES
    CLASS(t_ncfile),INTENT(INOUT):: sf    !! self
    !===============================================================================================================================
    CALL mpi_check_single_access()
#if NETCDF
    sf%ioError = nf90_enddef(sf%nc_id)
    CALL sf%handle_error("finalize definition mode")
#endif /*NETCDF*/
  END SUBROUTINE ncfile_end_def_mode