Changeset 3474 for IOIPSL/trunk/src/flincom.f90

Timestamp:

11/20/17 14:26:40 (6 years ago)

Author:

jgipsl

Message:

• Added exit in flinget if error when reading values from file
• Added possiblilty to use netcdf compression in restcom. Option is activated by adding optional argument use_compression when calling restini

Modifications done by A. Jornet-Puig, LSCE

File:

• IOIPSL/trunk/src/flincom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/flincom.f90

@@ -1613 +1613 @@
              start=w_sta(:), count=w_len(:))
 !---
+    IF (iret /= NF90_NOERR) THEN
+        WRITE(ipslout,*) 'flinget_mat 2.9 : ',NF90_STRERROR (iret)
+        CALL ipslerr(3, 'flinget_mat','Error on netcdf NF90_GET_VAR','', '')
+    ENDIF
+!---
     itau_len=itau_fin-itau_dep+1
     IF (l_dbg) WRITE(ipslout,*) 'flinget_mat 3.0 : clen, itau_len ',clen,itau_len
@@ -1631 +1636 @@
     iret = NF90_GET_VAR (fid, vid, var, &
              start=w_sta(:), count=w_len(:))
-  ENDIF
-!-
-  IF (l_dbg) WRITE(ipslout,*) 'flinget_mat 3.1 : ',NF90_STRERROR (iret)
+
+    IF (iret /= NF90_NOERR) THEN
+        WRITE(ipslout,*) 'flinget_mat 3.1 : ',NF90_STRERROR (iret)
+        CALL  ipslerr(3, 'flinget_mat','Error on netcdf NF90_GET_VAR','Read in netcdf failed', '')
+    ENDIF
+  ENDIF
+!-
+  IF (l_dbg) WRITE(ipslout,*) 'flinget_mat 3.2 : ',NF90_STRERROR (iret)
 !--------------------------
 END  SUBROUTINE flinget_mat