source: LMDZ6/trunk/libf/misc/handle_err_m.F90 @ 4013

Last change on this file since 4013 was 3815, checked in by lguez, 4 years ago

Merge Ocean_skin branch back into trunk

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.2 KB
Line 
1! $Id$
2module handle_err_m
3
4  implicit none
5
6contains
7
8  subroutine handle_err(message, ncerr, ncid, varid)
9
10    use netcdf, only: nf90_strerror, nf90_noerr, nf90_close
11
12    character(len=*), intent(in):: message
13    ! (should include name of calling procedure)
14
15    integer, intent(in):: ncerr
16
17    integer, intent(in), optional :: ncid
18    ! (Provide this argument if you want "handle_err" to try to close
19    ! the file.)
20
21    integer, intent(in), optional :: varid
22
23    ! Variable local to the procedure:
24    integer ncerr_close
25
26    !-------------------
27
28    if (ncerr /= nf90_noerr) then
29       print *, "NetCDF95 handle_err:"
30       print *, message, ":"
31       if (present(varid)) print *, "varid = ", varid
32       print *, trim(nf90_strerror(ncerr))
33       if (present(ncid)) then
34          ! Try to close, to leave the file in a consistent state:
35          ncerr_close = nf90_close(ncid)
36          ! (do not call "nf95_close", we do not want to recurse)
37          if (ncerr_close /= nf90_noerr) then
38             print *, "nf90_close:"
39             print *, trim(nf90_strerror(ncerr_close))
40          end if
41       end if
42       call abort_physic("NetCDF95 handle_err", "see above", 1)
43    end if
44
45  end subroutine handle_err
46
47end module handle_err_m
Note: See TracBrowser for help on using the repository browser.