source: LMDZ6/trunk/tools/netcdf95/Datasets/nf95_inquire.f90 @ 4918

Last change on this file since 4918 was 4918, checked in by Laurent Fairhead, 4 weeks 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.