Changeset 857 for IOIPSL


Ignore:
Timestamp:
12/17/09 11:05:07 (14 years ago)
Author:
bellier
Message:

Deallocate time-buffers at the closure of files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/histcom.f90

    r856 r857  
    24682468    IF (l_dbg) WRITE(*,*) 'Entering loop on vars : ',W_F(ifile)%n_var 
    24692469    DO iv=1,W_F(ifile)%n_var 
     2470!---- Extrema 
    24702471      IF (W_F(ifile)%W_V(iv)%hist_wrt_rng) THEN 
    24712472        IF (l_dbg) THEN 
     
    24842485        ENDIF 
    24852486      ENDIF 
     2487!---- Time-Buffers 
     2488      IF (ALLOCATED(W_F(ifile)%W_V(iv)%t_bf)) THEN 
     2489        DEALLOCATE(W_F(ifile)%W_V(iv)%t_bf) 
     2490      ENDIF 
    24862491    ENDDO 
    24872492!--- 
Note: See TracChangeset for help on using the changeset viewer.