Changeset 857
- Timestamp:
- 12/17/09 11:05:07 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/histcom.f90
r856 r857 2468 2468 IF (l_dbg) WRITE(*,*) 'Entering loop on vars : ',W_F(ifile)%n_var 2469 2469 DO iv=1,W_F(ifile)%n_var 2470 !---- Extrema 2470 2471 IF (W_F(ifile)%W_V(iv)%hist_wrt_rng) THEN 2471 2472 IF (l_dbg) THEN … … 2484 2485 ENDIF 2485 2486 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 2486 2491 ENDDO 2487 2492 !---
Note: See TracChangeset
for help on using the changeset viewer.