Changeset 2311 for IOIPSL


Ignore:
Timestamp:
08/04/14 15:52:44 (10 years ago)
Author:
mafoipsl
Message:

In fliocom error code treatment added after NF90_CLOSE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/fliocom.f90

    r1896 r2311  
    43534353      ENDIF 
    43544354      i_rc = NF90_CLOSE(f_e) 
     4355!- error case added : explicit the message and stop with a fatal error 
     4356      IF (i_rc /= NF90_NOERR) THEN 
     4357        CALL ipslerr (3,'flioclo', & 
     4358 &       'Could not close file','Try again and contact your local administrator ', & 
     4359 &       TRIM(NF90_STRERROR(i_rc))//' (Netcdf)') 
     4360      ENDIF 
    43554361      nw_id(i_f) = -1 
    43564362    ELSE IF (PRESENT(f_i)) THEN 
Note: See TracChangeset for help on using the changeset viewer.