Changeset 1567 for LMDZ4


Ignore:
Timestamp:
Aug 31, 2011, 3:43:30 PM (13 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.