source: LMDZ6/trunk/tools/netcdf95/nf95_inquire_dimension.f90 @ 5445

Last change on this file since 5445 was 5084, checked in by Laurent Fairhead, 5 months ago

Reverting to r4065. Updating fortran standard broke too much stuff. Will do it by smaller chunks
AB, LF

File size: 907 bytes
RevLine 
[4918]1module nf95_inquire_dimension_m
2
3  implicit none
4
5contains
6
7  subroutine nf95_inquire_dimension(ncid, dimid, name, nclen, ncerr)
8
9    use nf95_abort_m, only: nf95_abort
[5084]10    use netcdf, only: nf90_inquire_dimension
[4918]11    use nf95_constants, only: nf95_noerr
12
13    integer,                       intent( in) :: ncid, dimid
14    character (len = *), optional, intent(out) :: name
15    integer,             optional, intent(out) :: nclen
16    integer, intent(out), optional:: ncerr
17
18    ! Variable local to the procedure:
19    integer ncerr_not_opt
20
21    !-------------------
22
23    ncerr_not_opt = nf90_inquire_dimension(ncid, dimid, name, nclen)
24    if (present(ncerr)) then
25       ncerr = ncerr_not_opt
26    else
27       if (ncerr_not_opt /= nf95_noerr) call &
28            nf95_abort("nf95_inquire_dimension", ncerr_not_opt, ncid)
29    end if
30
31  end subroutine nf95_inquire_dimension
32
33end module nf95_inquire_dimension_m
Note: See TracBrowser for help on using the repository browser.