Changeset 1932 for IOIPSL

Timestamp:

11/28/12 10:56:17 (12 years ago)

Author:

jgipsl

Message:

Added possibility to read a scalar variable with one dimension if this dimension has lenght equal one.

N.Vuichard/JG

File:

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

IOIPSL/trunk/src/flincom.f90

@@ -1686 +1686 @@
 !-
   LOGICAL :: l_dbg
+  INTEGER :: lll
 !---------------------------------------------------------------------
   CALL ipsldbg (old_status=l_dbg)
@@ -1714 +1715 @@
         iret = NF90_INQUIRE_VARIABLE (fid, vid, &
              ndims=ndims, dimids=dimids, nAtts=nb_atts)
-        IF ( (ndims == 0) .AND. (nb_atts >= 0) ) THEN
+        IF (ndims == 1) THEN
+           iret = NF90_INQUIRE_DIMENSION (fid, dimids(1), len=lll)
+        ENDIF
+
+        IF ( ((ndims == 0) .OR. ((ndims == 1).AND.(lll == 1))) .AND. (nb_atts >= 0) ) THEN
            iret = NF90_GET_VAR(fid, vid, var)
         ELSE