ncfile_init Subroutine

public subroutine ncfile_init(sf, Filename, rwo_mode)

allocate and initialize class and open/close the netcdf file and define read ("r") or write ("w" includes read) mode

Arguments

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

self
character(len=*), intent(in) :: Filename
character(len=1), intent(in) :: rwo_mode

Calls

proc~~ncfile_init~~CallsGraph proc~ncfile_init ncfile_init proc~mpi_check_single_access mpi_check_single_access proc~ncfile_init->proc~mpi_check_single_access proc~ncfile_openfile t_ncfile%ncfile_openfile proc~ncfile_init->proc~ncfile_openfile proc~ncfile_openfile->proc~mpi_check_single_access

Called by

proc~~ncfile_init~~CalledByGraph proc~ncfile_init ncfile_init proc~bff_init t_boundaryFromFile%bff_init proc~bff_init->proc~ncfile_init proc~hmap_axisnb_init_params hmap_axisNB_init_params proc~hmap_axisnb_init_params->proc~ncfile_init proc~writedatatonetcdf WriteDataToNETCDF proc~writedatatonetcdf->proc~ncfile_init 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_init(sf,FileName,rwo_mode)
    ! MODULES
    IMPLICIT NONE
    !-------------------------------------------------------------------------------------------------------------------------------
    ! INPUT VARIABLES
    CHARACTER(LEN=*),INTENT(IN) :: Filename
    CHARACTER(LEN=1),INTENT(IN) :: rwo_mode        !either read "r" or write "w" (existing file) or "o" createnew or overwrite
    !-------------------------------------------------------------------------------------------------------------------------------
    ! OUTPUT VARIABLES
    CLASS(t_ncfile), ALLOCATABLE,INTENT(INOUT)        :: sf !! self
    !-------------------------------------------------------------------------------------------------------------------------------
    ! LOCAL VARIABLES
    !===============================================================================================================================
    CALL mpi_check_single_access()
    ALLOCATE(t_ncfile :: sf)
    sf%isopen=.FALSE.
    sf%nc_id=0
    sf%filename=TRIM(FileName)
    sf%rwo_mode=rwo_mode
    CALL sf%openfile()

  END SUBROUTINE ncfile_init