Changeset 4787 for LMDZ6/trunk/libf
- Timestamp:
- Jan 19, 2024, 11:36:10 AM (11 months ago)
- Location:
- LMDZ6/trunk/libf/phylmd/ecrad/radiation
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_scheme.F90
r4773 r4787 572 572 & single_level, thermodynamics, gas, cloud, aerosol, flux) 573 573 574 if (rad_config%use_aerosols) then 575 if (rad_config%i_gas_model == IGasModelIFSRRTMG) then 576 CALL aeropt_5wv_ecrad(kidia, kfdia, 1, klev, & 577 rad_config,thermodynamics,aerosol) 578 endif 579 endif 580 574 581 print*,'*********** Sortie flux ****************' 575 576 582 ! Cloud cover 577 583 ecrad_cloud_cover_sw = flux%cloud_cover_sw -
LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_setup.F90
r4773 r4787 18 18 & ISolverMcICA, ISolverSpartacus, & 19 19 & ILiquidModelSlingo, ILiquidModelSOCRATES, & 20 & IIceModelFu, IIceModelBaran, &21 & I OverlapExponentialRandom20 & IIceModelFu, IIceModelBaran, IGasModelECCKD, & 21 & IGasModelIFSRRTMG, IOverlapExponentialRandom 22 22 23 23 USE radiation_interface, ONLY : setup_radiation
Note: See TracChangeset
for help on using the changeset viewer.