Ignore:
Timestamp:
10/08/15 03:03:21 (9 years ago)
Author:
dubos
Message:

Bugfix : memory leak when nqtot>0

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/timeloop_gcm.f90

    r360 r363  
    266266        
    267267       IF(MOD(it,itau_adv)==0) THEN 
    268           CALL advect_tracer(f_hfluxt,f_wfluxt,f_u, f_q,f_rhodz)  ! update q and rhodz after RK step 
     268          IF(nqtot>0) CALL advect_tracer(f_hfluxt,f_wfluxt,f_u, f_q,f_rhodz)  ! update q and rhodz after RK step 
    269269          fluxt_zero=.TRUE. 
    270270          ! FIXME : check that rhodz is consistent with ps 
Note: See TracChangeset for help on using the changeset viewer.