Changeset 1025

Timestamp:

05/20/10 09:49:57 (15 years ago)

Author:

bellier

Message:

Added a test to avoid warnings for variable without attributes

File:

• IOIPSL/trunk/tools/flio_rbld.f90 (modified) (1 diff)

IOIPSL/trunk/tools/flio_rbld.f90

@@ -602 +602 @@
     ENDIF
 !-- copy all variable attributes
-    ALLOCATE(v_a_nm(v_a_nb))
-    CALL flioinqv (f_id_i1,TRIM(f_v_nm(iv)),l_ex,cn_atts=v_a_nm)
-    DO ia=1,v_a_nb
-      CALL fliocpya &
- &     (f_id_i1,TRIM(f_v_nm(iv)),TRIM(v_a_nm(ia)), &
- &      f_id_o,TRIM(f_v_nm(iv)))
-    ENDDO
-    DEALLOCATE(v_a_nm)
+    IF (v_a_nb > 0) THEN
+      ALLOCATE(v_a_nm(v_a_nb))
+      CALL flioinqv (f_id_i1,TRIM(f_v_nm(iv)),l_ex,cn_atts=v_a_nm)
+      DO ia=1,v_a_nb
+        CALL fliocpya &
+ &       (f_id_i1,TRIM(f_v_nm(iv)),TRIM(v_a_nm(ia)), &
+ &        f_id_o,TRIM(f_v_nm(iv)))
+      ENDDO
+      DEALLOCATE(v_a_nm)
+    ENDIF
   ENDDO
 !-