input_nc_close Subroutine

  1. input.f95
  2. input
  3. input_nc_close

public subroutine input_nc_close()

Uses

    • netcdf
  • proc~~input_nc_close~~UsesGraph proc~input_nc_close input_nc_close netcdf netcdf proc~input_nc_close->netcdf

Arguments

None

Calls

proc~~input_nc_close~~CallsGraph proc~input_nc_close input_nc_close nf90_close nf90_close proc~input_nc_close->nf90_close proc~input_nc_check_error input_nc_check_error proc~input_nc_close->proc~input_nc_check_error nf90_strerror nf90_strerror proc~input_nc_check_error->nf90_strerror proc~log_error log_error proc~input_nc_check_error->proc~log_error proc~log_message log_message proc~log_error->proc~log_message proc~log_write log_write proc~log_message->proc~log_write proc~log_format_message log_format_message proc~log_message->proc~log_format_message proc~to_string to_string proc~log_write->proc~to_string proc~date_time_str date_time_str proc~log_format_message->proc~date_time_str proc~colourise colourise proc~log_format_message->proc~colourise proc~string_index string_index proc~colourise->proc~string_index

Called by

proc~~input_nc_close~~CalledByGraph proc~input_nc_close input_nc_close proc~terminate terminate proc~terminate->proc~input_nc_close program~swim swim program~swim->proc~terminate

Contents

Source Code

input_nc_close

Source Code

  subroutine input_nc_close
    use netcdf, only : nf90_close
    integer :: i
    ! deallocate arrays and close open files
    do i = 1, 6
      call input_nc_check_error( nf90_close(nc_ids(i)) )
    enddo

    deallocate(nc_lons)
    deallocate(nc_lats)
    deallocate(nc_var_in)

  endsubroutine input_nc_close