Ignore:
Timestamp:
Feb 4, 2026, 1:04:14 PM (3 weeks ago)
Author:
gmilcareck
Message:

Fix bug on calc_rayleigh

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phygeneric/calc_rayleigh.F90

    r3968 r4037  
    325325            enddo !ngasmx
    326326
    327             call blackl(dble(wn),dble(tstellar),df)
    328             df=df*(BWNV(N+1)-BWNV(N))/Nfine
     327            call blackl(dble(wl*1e-6),dble(tstellar),df)
     328            df=df*bwidth/Nfine
    329329            tauwei=tauwei+df
    330330            tausum(:)=tausum(:)+tauvar(:)*df
Note: See TracChangeset for help on using the changeset viewer.