nf95_get_var_m.F90

Go to the documentation of this file.

module nf95_get_var_m

  use netcdf, only: nf90_get_var
  use handle_err_m, only: handle_err

  implicit none

  interface nf95_get_var
     module procedure nf95_get_var_fourbytereal, nf95_get_var_fourbyteint, &
          nf95_get_var_1d_fourbytereal, nf95_get_var_1d_fourbyteint, &
          nf95_get_var_2d_fourbytereal, &
          nf95_get_var_3d_fourbyteint, &
          nf95_get_var_3d_fourbytereal, &
          nf95_get_var_4d_fourbytereal, &
          nf95_get_var_5d_fourbytereal
  end interface

  private
  public nf95_get_var

contains

  subroutine nf95_get_var_fourbytereal(ncid, varid, values, start, ncerr)

    integer, intent(in) :: ncid, varid
    real, intent(out) :: values
    integer, dimension(:), optional, intent(in) :: start
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_FourByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_fourbytereal

  !***********************

  subroutine nf95_get_var_fourbyteint(ncid, varid, values, start, ncerr)

    integer, intent(in) :: ncid, varid
    integer, intent(out) :: values
    integer, dimension(:), optional, intent(in) :: start
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_FourByteInt", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_fourbyteint

  !***********************

  subroutine nf95_get_var_1d_fourbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    integer,                         intent(in) :: ncid, varid
    real, intent(out) :: values(:)
    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_1D_FourByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_1d_fourbytereal

  !***********************

  subroutine nf95_get_var_1d_fourbyteint(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    integer,                         intent(in) :: ncid, varid
    integer, intent(out) :: values(:)
    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_1D_FourByteInt", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_1d_fourbyteint

  !***********************

  subroutine nf95_get_var_1d_eightbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    use typesizes, only: eightbytereal

    integer,                         intent(in) :: ncid, varid
    real (kind = EightByteReal),     intent(out) :: values(:)
    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_1D_eightByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_1d_eightbytereal

  !***********************

  subroutine nf95_get_var_2d_fourbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    integer,                         intent(in) :: ncid, varid
    real , intent(out) :: values(:, :)
    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_2D_FourByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_2d_fourbytereal

  !***********************

  subroutine nf95_get_var_2d_eightbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    use typesizes, only: eightbytereal

    integer,                         intent(in) :: ncid, varid
    real (kind = EightByteReal), intent(out) :: values(:, :)
    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_2D_EightByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_2d_eightbytereal

  !***********************

  subroutine nf95_get_var_3d_fourbyteint(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    integer, intent(in):: ncid, varid
    integer, intent(out):: values(:, :, :)
    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_3D_FourByteInt", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_3d_fourbyteint

  !***********************

  subroutine nf95_get_var_3d_fourbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    integer,                         intent(in) :: ncid, varid
    real , intent(out) :: values(:, :, :)
    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_3D_FourByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_3d_fourbytereal

  !***********************

  subroutine nf95_get_var_3d_eightbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    use typesizes, only: eightbytereal

    integer,                         intent(in) :: ncid, varid
    real (kind = EightByteReal),     intent(out) :: values(:, :, :)
    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_3D_eightByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_3d_eightbytereal

  !***********************

  subroutine nf95_get_var_4d_fourbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    integer,                         intent(in) :: ncid, varid
    real , intent(out) :: values(:, :, :, :)
    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_4D_FourByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_4d_fourbytereal

  !***********************

  subroutine nf95_get_var_4d_eightbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    use typesizes, only: eightbytereal

    integer, intent(in):: ncid, varid
    real(kind = EightByteReal), intent(out):: values(:, :, :, :)
    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_4D_EightByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_4d_eightbytereal

  !***********************

  subroutine nf95_get_var_5d_fourbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    integer, intent(in):: ncid, varid
    real, intent(out):: values(:, :, :, :, :)
    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_5D_FourByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_5d_fourbytereal

  !***********************

  subroutine nf95_get_var_5d_eightbytereal(ncid, varid, values, start, &
       count_nc, stride, map, ncerr)

    use typesizes, only: eightbytereal

    integer, intent(in):: ncid, varid
    real(kind = EightByteReal), intent(out):: values(:, :, :, :, :)
    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
    integer, intent(out), optional:: ncerr

    ! Variable local to the procedure:
    integer ncerr_not_opt

    !-------------------

    ncerr_not_opt = nf90_get_var(ncid, varid, values, start, count_nc, &
         stride, map)
    if (present(ncerr)) then
       ncerr = ncerr_not_opt
    else
       call handle_err("nf95_get_var_5D_EightByteReal", ncerr_not_opt, ncid, &
            varid)
    end if

  end subroutine nf95_get_var_5d_eightbytereal

end module nf95_get_var_m