Changeset 2858


Ignore:
Timestamp:
Apr 20, 2017, 10:21:15 PM (8 years ago)
Author:
oboucher
Message:

Correction of a bug on aerosol index for diagnosing AAOD at 550 nm.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90

    r2854 r2858  
    571571
    572572            IF (la.EQ.la550) THEN
    573                abs_ae5wv_int = abs_aeri_5wv(la,spsol)
     573               abs_ae5wv_int = abs_aeri_5wv(la,spinsol)
    574574               abs550aer(i)=abs550aer(i)+m_allaer(i,k,aerindex)/1.e6*zdh(i,k)*abs_ae5wv_int*fac
    575575            ENDIF
Note: See TracChangeset for help on using the changeset viewer.