Changeset 31 for branches/iLoveclim/SOURCES/util_recovery.f90

Timestamp:

12/17/15 17:53:06 (9 years ago)

Author:

dumas

Message:

merge branche iLoveclim avec trunk r29

File:

• branches/iLoveclim/SOURCES/util_recovery.f90 (modified) (1 diff)

branches/iLoveclim/SOURCES/util_recovery.f90

@@ -47 +47 @@
     read(num_file,*)       !saut de la ligne "-------"
     read(num_file,*) i
-    allocate(tab_time(i))
+    if (.not. allocated(tab_time)) then ! aurel dec15
+       allocate(tab_time(i))
+    end if
     do j=1,i 
        read(num_file,*)   tab_time(j)