|
Last change
on this file since 5445 was
4918,
checked in by Laurent Fairhead, 8 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:
504 bytes
|
| Line | |
|---|
| 1 | module nc_inq_grpname_len_m |
|---|
| 2 | |
|---|
| 3 | implicit none |
|---|
| 4 | |
|---|
| 5 | Interface |
|---|
| 6 | Integer(C_INT) Function nc_inq_grpname_len(ncid, lenp) BIND(C) |
|---|
| 7 | use, intrinsic:: ISO_C_BINDING |
|---|
| 8 | Integer(C_INT), VALUE, intent(in):: ncid |
|---|
| 9 | |
|---|
| 10 | Integer(C_SIZE_T), Intent(OUT):: lenp |
|---|
| 11 | ! This is the length of the full name (the absolute path), not |
|---|
| 12 | ! just the length of the basename. It does not count the NULL |
|---|
| 13 | ! terminator. |
|---|
| 14 | End Function nc_inq_grpname_len |
|---|
| 15 | End Interface |
|---|
| 16 | |
|---|
| 17 | end module nc_inq_grpname_len_m |
|---|
Note: See
TracBrowser
for help on using the repository browser.
