Changeset 1567


Ignore:
Timestamp:
08/31/11 15:43:30 (6 years ago)
Author:
jghattas
Message:

Corrected bug in aerosols diagnostics. This bug apeared when iflag_aerosols different to 6.

/Nicolas Yan, LSCE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_AR5/libf/phylmd/aeropt_2bands.F90

    r1337 r1567  
    928928  DO m=1,nb_aer    
    929929    IF (.NOT. used_aer(m)) THEN 
    930       tau_ae(:,:,:,:)=0. 
    931       tau_ae_pi(:,:,:,:)=0. 
    932       piz_ae(:,:,:,:)=0. 
    933       cg_ae(:,:,:,:)=0. 
     930      tau_ae(:,:,m,:)=0. 
     931      tau_ae_pi(:,:,m,:)=0. 
     932      piz_ae(:,:,m,:)=0. 
     933      cg_ae(:,:,m,:)=0. 
    934934    ENDIF 
    935935  ENDDO 
Note: See TracChangeset for help on using the changeset viewer.