Changeset 3660 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Apr 12, 2020, 4:18:03 PM (5 years ago)
Author:
oboucher
Message:

Correction of diagnostic extinction coefficient at 1020 nm

File:
1 edited

Legend:

Unmodified
Added
Removed

  • TabularUnified LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90

    r3526 r3660  
    118118    zdz=(paprs(i,k)-paprs(i,k+1))/zrho/RG     !thickness of layer in m
    119119    tau_strat_550(i,k)=tau_strat_wave(i,k,2)/zdz
    120     tau_strat_1020(i,k)=tau_strat_wave(i,k,6)/zdz
     120    tau_strat_1020(i,k)=tau_strat_wave(i,k,5)/zdz
    121121  ENDDO
    122122  ENDDO
Note: See TracChangeset for help on using the changeset viewer.