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

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