source: CPL/oasis3/trunk/src/mod/oasis3/src/hdlerr.f @ 1677

Last change on this file since 1677 was 1677, checked in by aclsce, 12 years ago

Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).

File size: 388 bytes
Line 
1      subroutine hdlerr(istatus, cd_routine)
2      USE mod_kinds_oasis
3      USE mod_unit
4      integer (kind=ip_intwp_p) :: istatus
5      CHARACTER*(*) cd_routine
6      INCLUDE 'netcdf.inc'
7      if (istatus .ne. NF_NOERR) then
8          WRITE(nulou,*) NF_STRERROR(istatus)
9          CALL prcout('STOP in ', cd_routine, 2)
10          CALL halte('STOP')
11      endif
12      return
13      end
Note: See TracBrowser for help on using the repository browser.