source: LMDZ6/branches/cirrus/tools/netcdf95/Datasets/nf95_sync.f90 @ 5403

Last change on this file since 5403 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: 638 bytes
Line 
1module nf95_sync_m
2
3  implicit none
4
5contains
6
7  subroutine nf95_sync(ncid, ncerr)
8
9    use nf95_abort_m, only: nf95_abort
10    use netcdf, only: nf90_sync
11    use nf95_constants, only: nf95_noerr
12
13    integer, intent( in) :: ncid
14    integer, intent(out), optional :: ncerr
15
16    ! Variable local to the procedure:
17    integer ncerr_not_opt
18
19    !-------------------
20
21    ncerr_not_opt = nf90_sync(ncid)
22
23    if (present(ncerr)) then
24       ncerr = ncerr_not_opt
25    else
26       if (ncerr_not_opt /= nf95_noerr) call nf95_abort("nf95_sync", &
27            ncerr_not_opt, ncid)
28    end if
29
30  end subroutine nf95_sync
31
32end module nf95_sync_m
Note: See TracBrowser for help on using the repository browser.