source: LMDZ6/branches/Amaury_dev/tools/netcdf95/nf95_inquire_dimension.f90 @ 5086

Last change on this file since 5086 was 5075, checked in by abarral, 5 months ago

[continued & end] replace netcdf by lmdz_netcdf.F90 wrapper
"use netcdf" is now only used in lmdz_netcdf.F90 (except ecrad and obsolete/)
<include "netcdf.inc"> is now likewise only used in lmdz_netcdf.F90.

systematically specify explicitely <USE lmdz_netcdf, ONLY:> (probably left some missing, to correct later on)

Further replacement of nf_put_* by nf90_put_* (same for _get_)

[minor] replace deprecated boolean operators along the way

File size: 912 bytes
Line 
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
10    use lmdz_netcdf, only: nf90_inquire_dimension
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.