source: LMDZ6/branches/cirrus/tools/netcdf95/Datasets/nf95_inquire.f90 @ 5473

Last change on this file since 5473 was 4918, checked in by Laurent Fairhead, 10 months ago

Reintegrated NetCDF95 in LMDZ so that it is compiled and made available by the makelmdz_fcm script.
The makelmdz_fcm creates the libnetcdf95 library and copies it in the tools/netcdf/lib directory, copying
the mod files in the tools/netcdf/include library.

File size: 962 bytes
Line 
1module nf95_inquire_m
2
3  implicit none
4
5contains
6
7
8  subroutine nf95_inquire(ncid, nDimensions, nVariables, nAttributes, &
9       unlimitedDimId, formatNum, ncerr)
10   
11    use nf95_abort_m, only: nf95_abort
12    use netcdf, only: nf90_inquire
13    use nf95_constants, only: nf95_noerr
14
15    integer,           intent( in) :: ncid
16    integer, optional, intent(out) :: nDimensions, nVariables, nAttributes
17    integer, optional, intent(out) :: unlimitedDimId, formatNum
18    integer, intent(out), optional:: ncerr
19
20    ! Variable local to the procedure:
21    integer ncerr_not_opt
22
23    !-------------------
24
25    ncerr_not_opt = nf90_inquire(ncid, nDimensions, nVariables, nAttributes, &
26         unlimitedDimId, formatNum)
27
28    if (present(ncerr)) then
29       ncerr = ncerr_not_opt
30    else
31       if (ncerr_not_opt /= nf95_noerr) call nf95_abort("nf95_inquire", &
32            ncerr_not_opt, ncid)
33    end if
34
35  end subroutine nf95_inquire
36
37end module nf95_inquire_m
Note: See TracBrowser for help on using the repository browser.