Changeset 857 for IOIPSL/trunk/src/histcom.f90

Timestamp:

12/17/09 11:05:07 (15 years ago)

Author:

bellier

Message:

Deallocate time-buffers at the closure of files

File:

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

IOIPSL/trunk/src/histcom.f90

@@ -2468 +2468 @@
     IF (l_dbg) WRITE(*,*) 'Entering loop on vars : ',W_F(ifile)%n_var
     DO iv=1,W_F(ifile)%n_var
+!---- Extrema
       IF (W_F(ifile)%W_V(iv)%hist_wrt_rng) THEN
         IF (l_dbg) THEN
@@ -2484 +2485 @@
         ENDIF
       ENDIF
+!---- Time-Buffers
+      IF (ALLOCATED(W_F(ifile)%W_V(iv)%t_bf)) THEN
+        DEALLOCATE(W_F(ifile)%W_V(iv)%t_bf)
+      ENDIF
     ENDDO
 !---