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 proc~mpi_check_single_access mpi_check_single_access proc~ncfile_end_def_mode->proc~mpi_check_single_access

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

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