source: LMDZ6/trunk/tools/netcdf95/nf95_inq_dimid.f90 @ 5162

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

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

File size: 808 bytes
Line 
1module nf95_inq_dimid_m
2
3  implicit none
4
5contains
6
7  subroutine nf95_inq_dimid(ncid, name, dimid, ncerr)
8
9    use nf95_abort_m, only: nf95_abort
10    use netcdf, only: nf90_inq_dimid
11    use nf95_constants, only: nf95_noerr
12
13    integer,             intent(in) :: ncid
14    character (len = *), intent(in) :: name
15    integer,             intent(out) :: dimid
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_inq_dimid(ncid, name, dimid)
24
25    if (present(ncerr)) then
26       ncerr = ncerr_not_opt
27    else
28       if (ncerr_not_opt /= nf95_noerr) call nf95_abort("nf95_inq_dimid " &
29            // name, ncerr_not_opt, ncid)
30    end if
31
32  end subroutine nf95_inq_dimid
33
34end module nf95_inq_dimid_m
Note: See TracBrowser for help on using the repository browser.