- Timestamp:
- Sep 7, 2023, 1:07:27 PM (9 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ecrad/radiation_general_cloud_optics_data.F90
r4489 r4677 185 185 call delta_eddington(mass_ext, ssa, asymmetry) 186 186 187 187 188 ! Thin averaging 189 ! AI juillet 2023 190 allocate(this%mass_ext(nre,nwav)) 188 191 this%mass_ext = matmul(mapping, mass_ext) 189 192 this%ssa = matmul(mapping, mass_ext*ssa) / this%mass_ext
Note: See TracChangeset
for help on using the changeset viewer.