Ignore:
Timestamp:
May 17, 2017, 9:36:28 AM (8 years ago)
Author:
jghattas
Message:

Inclusion of r2858 correction in CM6.0.10-LR branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM6.0.10/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90

    r2845 r2883  
    555555
    556556            IF (la.EQ.la550) THEN
    557                abs_ae5wv_int = abs_aeri_5wv(la,spsol)
     557               abs_ae5wv_int = abs_aeri_5wv(la,spinsol)
    558558               abs550aer(i)=abs550aer(i)+m_allaer(i,k,aerindex)/1.e6*zdh(i,k)*abs_ae5wv_int*fac
    559559            ENDIF
Note: See TracChangeset for help on using the changeset viewer.