ncfile_free Subroutine

public subroutine ncfile_free(sf)

closes file and frees variable

Type Bound

t_ncfile

Arguments

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

self

Calls

proc~~ncfile_free~~CallsGraph proc~ncfile_free t_ncfile%ncfile_free proc~mpi_check_single_access mpi_check_single_access proc~ncfile_free->proc~mpi_check_single_access proc~ncfile_closefile t_ncfile%ncfile_closefile proc~ncfile_free->proc~ncfile_closefile 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_handle_error->proc~mpi_check_single_access nf90_strerror nf90_strerror proc~ncfile_handle_error->nf90_strerror

Source Code

  SUBROUTINE ncfile_free(sf)
    ! MODULES
    IMPLICIT NONE
    !-------------------------------------------------------------------------------------------------------------------------------
    ! INPUT VARIABLES
    !-------------------------------------------------------------------------------------------------------------------------------
    ! OUTPUT VARIABLES
    CLASS(t_ncfile), INTENT(INOUT)        :: sf !! self
    !-------------------------------------------------------------------------------------------------------------------------------
    ! LOCAL VARIABLES
    !===============================================================================================================================
    CALL mpi_check_single_access()
    IF(sf%isopen) CALL sf%closefile()
    sf%nc_id=0
    sf%filename=""
    sf%rwo_mode=""
  END SUBROUTINE ncfile_free