Changeset 2311

Timestamp:

08/04/14 15:52:44 (9 years ago)

Author:

mafoipsl

Message:

In fliocom error code treatment added after NF90_CLOSE.

File:

• IOIPSL/trunk/src/fliocom.f90 (modified) (1 diff)

IOIPSL/trunk/src/fliocom.f90

@@ -4353 +4353 @@
       ENDIF
       i_rc = NF90_CLOSE(f_e)
+!- error case added : explicit the message and stop with a fatal error
+      IF (i_rc /= NF90_NOERR) THEN
+        CALL ipslerr (3,'flioclo', &
+ &       'Could not close file','Try again and contact your local administrator ', &
+ &       TRIM(NF90_STRERROR(i_rc))//' (Netcdf)')
+      ENDIF
       nw_id(i_f) = -1
     ELSE IF (PRESENT(f_i)) THEN