Changeset 4677 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Sep 7, 2023, 1:07:27 PM (9 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4666 r4677 203 203 toplwai_aero,sollwai_aero, & 204 204 toplwad0_aero,sollwad0_aero, & 205 !pour Ecrad 206 topswad_aero_s2, solswad_aero_s2, & 207 topswai_aero_s2, solswai_aero_s2, & 208 topswad0_aero_s2, solswad0_aero_s2, & 209 topsw_aero_s2, topsw0_aero_s2, & 210 solsw_aero_s2, solsw0_aero_s2, & 211 topswcf_aero_s2, solswcf_aero_s2, & 212 !LW diagnostics 213 toplwad_aero_s2, sollwad_aero_s2, & 214 toplwai_aero_s2, sollwai_aero_s2, & 215 toplwad0_aero_s2, sollwad0_aero_s2, & 205 216 ! 206 217 topsw_aero,solsw_aero, & … … 221 232 toplwai_aerop, sollwai_aerop, & 222 233 toplwad0_aerop, sollwad0_aerop, & 234 !pour Ecrad 235 topswad_aero_s2, solswad_aero_s2, & 236 topswai_aero_s2, solswai_aero_s2, & 237 topswad0_aero_s2, solswad0_aero_s2, & 238 topsw_aero_s2, topsw0_aero_s2, & 239 solsw_aero_s2, solsw0_aero_s2, & 240 topswcf_aero_s2, solswcf_aero_s2, & 241 !LW diagnostics 242 toplwad_aero_s2, sollwad_aero_s2, & 243 toplwai_aero_s2, sollwai_aero_s2, & 244 toplwad0_aero_s2, sollwad0_aero_s2, & 223 245 ! 224 246 ptstar, pt0, slp, & … … 1497 1519 WRITE(lunout,*) 'Call to infocfields from physiq' 1498 1520 CALL infocfields_init 1521 1522 !AI 08 2023 1523 #ifdef CPP_ECRAD 1524 ok_3Deffect=.false. 1525 CALL getin_p('ok_3Deffect',ok_3Deffect) 1526 namelist_ecrad_file='namelist_ecrad' 1527 #endif 1499 1528 1500 1529 ENDIF … … 4581 4610 ZSWFT0_i, ZFSDN0, ZFSUP0) 4582 4611 ENDIF !ok_4xCO2atm 4612 4613 ! A.I aout 2023 4614 ! Effet 3D des nuages Ecrad 4615 ! a passer : nom du ficher namelist et cles ok_3Deffect 4616 ! a declarer comme iflag_rrtm et a lire dans physiq.def 4617 #ifdef CPP_ECRAD 4618 IF (ok_3Deffect) then 4619 ! print*,'ok_3Deffect = ',ok_3Deffect 4620 namelist_ecrad_file='namelist_ecrad_s2' 4621 CALL radlwsw & 4622 (dist, rmu0, fract, & 4623 paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif, & 4624 t_seri,q_seri,wo, & 4625 cldfrarad, cldemirad, cldtaurad, & 4626 ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie, ok_volcan, flag_volc_surfstrat, & 4627 flag_aerosol, flag_aerosol_strat, flag_aer_feedback, & 4628 tau_aero, piz_aero, cg_aero, & 4629 tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, & 4630 tau_aero_lw_rrtm, & 4631 cldtaupi, & 4632 zqsat, flwc, fiwc, & 4633 ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, & 4634 ! A modifier 4635 heat_s2,heat0_s2,cool_s2,cool0_s2,albpla_s2, & 4636 heat_volc,cool_volc, & 4637 topsw_s2,toplw_s2,solsw_s2,solswfdiff_s2,sollw_s2, & 4638 sollwdown_s2, & 4639 topsw0_s2,toplw0_s2,solsw0_s2,sollw0_s2, & 4640 lwdnc0_s2, lwdn0_s2, lwdn_s2, lwupc0_s2, lwup0_s2, lwup_s2, & 4641 swdnc0_s2, swdn0_s2, swdn_s2, swupc0_s2, swup0_s2, swup_s2, & 4642 topswad_aero_s2, solswad_aero_s2, & 4643 topswai_aero_s2, solswai_aero_s2, & 4644 topswad0_aero_s2, solswad0_aero_s2, & 4645 topsw_aero_s2, topsw0_aero_s2, & 4646 solsw_aero_s2, solsw0_aero_s2, & 4647 topswcf_aero_s2, solswcf_aero_s2, & 4648 !-C. Kleinschmitt for LW diagnostics 4649 toplwad_aero_s2, sollwad_aero_s2,& 4650 toplwai_aero_s2, sollwai_aero_s2, & 4651 toplwad0_aero_s2, sollwad0_aero_s2,& 4652 !-end 4653 ZLWFT0_i, ZFLDN0, ZFLUP0, & 4654 ZSWFT0_i, ZFSDN0, ZFSUP0) 4655 namelist_ecrad_file='namelist_ecrad' 4656 ENDIF ! ok_3Deffect 4657 #endif 4658 4583 4659 ENDIF ! aerosol_couple 4584 4660 itaprad = 0
Note: See TracChangeset
for help on using the changeset viewer.