ncfile_closefile Subroutine

public subroutine ncfile_closefile(sf)

close netcdf file

Type Bound

t_ncfile

Arguments

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

self

Calls

proc~~ncfile_closefile~~CallsGraph proc~ncfile_closefile t_ncfile%ncfile_closefile proc~mpi_check_single_access mpi_check_single_access proc~ncfile_closefile->proc~mpi_check_single_access

Called by

proc~~ncfile_closefile~~CalledByGraph proc~ncfile_closefile t_ncfile%ncfile_closefile proc~ncfile_free t_ncfile%ncfile_free proc~ncfile_free->proc~ncfile_closefile proc~readnetcdf ReadNETCDF proc~readnetcdf->proc~ncfile_closefile proc~readnetcdf~2 ReadNETCDF proc~readnetcdf~2->proc~ncfile_closefile proc~bff_init t_boundaryFromFile%bff_init proc~bff_init->proc~readnetcdf proc~hmap_axisnb_init_params hmap_axisNB_init_params proc~hmap_axisnb_init_params->proc~readnetcdf~2 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 proc~boundaryfromfile_new boundaryFromFile_new proc~boundaryfromfile_new->proc~bff_init proc~hmap_axisnb_init->proc~hmap_axisnb_init_params

Source Code

  SUBROUTINE ncfile_closefile( sf)
    ! MODULES
    IMPLICIT NONE
    !-------------------------------------------------------------------------------------------------------------------------------
    ! INPUT VARIABLES
    !-------------------------------------------------------------------------------------------------------------------------------
    ! OUTPUT VARIABLES
    CLASS(t_ncfile),INTENT(INOUT)        :: sf !! self
    !-------------------------------------------------------------------------------------------------------------------------------
    ! LOCAL VARIABLES
    !===============================================================================================================================
    CALL mpi_check_single_access()
    IF(.NOT.sf%isopen) RETURN
#if NETCDF
    sf%ioError = nf90_CLOSE(sf%nc_id)
    CALL sf%handle_error("closing file")
    sf%isopen=.FALSE.
#endif /*NETCDF*/
  END SUBROUTINE ncfile_closefile