Changeset 4037 for trunk/LMDZ.GENERIC


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

Fix bug on calc_rayleigh

Location:
trunk/LMDZ.GENERIC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/changelog.txt

    r4036 r4037  
    21632163(it is recommended after an update to this version to recompile everything
    21642164with the -full option).
     2165
     2166== 04/02/2026 == GM
     2167Fix bug on calc_rayleigh. The extinction coefficient was not weighted correctly by
     2168the black body function.
     2169

  • 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.