Changeset 1993 for branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/tools/flio_rbld.f90

Timestamp:

2010-07-08T15:42:43+02:00 (14 years ago)

Author:

smasson

Message:

merging IOIPSL/v2_2_1 into the EXTERNAL deposit

File:

• branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/tools/flio_rbld.f90 (modified) (2 diffs)

branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/tools/flio_rbld.f90

@@ -1 +1 @@
 PROGRAM flio_rbld
 !
-!$Id: flio_rbld.f90 386 2008-09-04 08:38:48Z bellier $
+!$Id: flio_rbld.f90 1025 2010-05-20 07:49:57Z bellier $
 !-
 ! This software is governed by the CeCILL license
@@ -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
 !-