Changeset 5757 for LMDZ6/trunk/libf/phylmd
- Timestamp:
- Jul 4, 2025, 12:12:40 PM (3 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/ecrad/lmdz/radiation_setup.f90
r5729 r5757 1 1 MODULE RADIATION_SETUP 2 2 3 ! RADIATION_SETUP - Setting up modular radiation scheme4 !5 ! AUTHOR6 ! ------7 ! Robin Hogan, ECMWF8 ! Original: 2015-09-169 !10 ! MODIFICATIONS11 ! -------------12 ! Abderrahmane Idelkadi LMD, juillet 202313 !14 !-----------------------------------------------------------------------3 ! RADIATION_SETUP - Setting up modular radiation scheme 4 ! 5 ! AUTHOR 6 ! ------ 7 ! Robin Hogan, ECMWF 8 ! Original: 2015-09-16 9 ! 10 ! MODIFICATIONS 11 ! ------------- 12 ! Abderrahmane Idelkadi LMD, juillet 2023 13 ! 14 !----------------------------------------------------------------------- 15 15 16 16 USE PARKIND1, ONLY : JPRB … … 52 52 ! to print lots of information during the setup stage (default is 53 53 ! no). 54 ! AI At the end of the routine, the parameters are read in namelist55 !54 ! AI At the end of the routine, the parameters are read in namelist 55 ! 56 56 SUBROUTINE SETUP_RADIATION_SCHEME(LOUTPUT,file_name,rad_config,driver_config) 57 57 58 ! USE radiation_config, ONLY : config_type, &59 ! & ISolverMcICA, ISolverSpartacus, &60 ! & ILiquidModelSlingo, ILiquidModelSOCRATES, &61 ! & IIceModelFu, IIceModelBaran, &62 ! & IOverlapExponentialRandom58 ! USE radiation_config, ONLY : config_type, & 59 ! & ISolverMcICA, ISolverSpartacus, & 60 ! & ILiquidModelSlingo, ILiquidModelSOCRATES, & 61 ! & IIceModelFu, IIceModelBaran, & 62 ! & IOverlapExponentialRandom 63 63 USE mod_phys_lmdz_para 64 64 65 65 USE YOMHOOK, ONLY : LHOOK, DR_HOOK 66 66 USE YOMLUN, ONLY : NULOUT, NULERR 67 67 USE YOESRTWN, ONLY : NMPSRTM 68 68 69 ! USE radiation_interface, ONLY : setup_radiation70 ! USE setup_config_from_lmdz, ONLY : driver_config_type69 ! USE radiation_interface, ONLY : setup_radiation 70 ! USE setup_config_from_lmdz, ONLY : driver_config_type 71 71 72 72 ! Whether or not to provide information on the radiation scheme … … 90 90 91 91 ! Configure verbosity of setup of radiation scheme 92 92 93 93 print*,'********** Dans radiation_setup *****************' 94 94 95 ! AI ATTENTION (parameters read in namelist file)96 ! file_name="namelist_ecrad"95 ! AI ATTENTION (parameters read in namelist file) 96 ! file_name="namelist_ecrad" 97 97 call rad_config%read(file_name=file_name) 98 98 call driver_config%read(file_name) … … 109 109 ! results... 110 110 ! Note that NMPSRTM(:)=(/ 6, 6, 5, 5, 5, 5, 5, 4, 4, 3, 2, 2, 1, 6 /) 111 ! AI (6 albedo SW bands)111 ! AI (6 albedo SW bands) 112 112 call rad_config%define_sw_albedo_intervals(6, & 113 & [0.25e-6_jprb, 0.44e-6_jprb, 0.69e-6_jprb, &114 & 1.19e-6_jprb, 2.38e-6_jprb], [1,2,3,4,5,6])113 & [0.25e-6_jprb, 0.44e-6_jprb, 0.69e-6_jprb, & 114 & 1.19e-6_jprb, 2.38e-6_jprb], [1,2,3,4,5,6]) 115 115 ! Likewise between the 16 RRTM longwave bands and the 2 emissivity 116 116 ! inputs (info taken from rrtm_ecrt_140gp_mcica.F90) representing 117 117 ! outside and inside the window region of the spectrum 118 ! rad_config%i_emiss_from_band_lw = (/ 1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1 /)119 ! AI ATTENTION ?????120 !! call rad_config%define_lw_emiss_intervals(3, &121 !! & (/ 8.0e-6_jprb,13.0e-6_jprb /), (/ 1,2,1 /))118 ! rad_config%i_emiss_from_band_lw = (/ 1,1,1,1,1,2,2,2,1,1,1,1,1,1,1,1 /) 119 ! AI ATTENTION ????? 120 !! call rad_config%define_lw_emiss_intervals(3, & 121 !! & (/ 8.0e-6_jprb,13.0e-6_jprb /), (/ 1,2,1 /)) 122 122 123 ! ! Get spectral weightings for UV and PAR123 ! ! Get spectral weightings for UV and PAR 124 124 call rad_config%get_sw_weights(0.2e-6_jprb, 0.4415e-6_jprb, & 125 125 & NWEIGHT_UV, IBAND_UV, WEIGHT_UV, 'ultraviolet') … … 128 128 & 'photosynthetically active radiation, PAR') 129 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 130 rad_config%i_aerosol_type_map(1:13) = (/ & 131 & -1, & 132 & -2, & 133 & -3, & 134 & -4, & 135 & -5, & 136 & -6, & 137 & -7, & 138 & 1, & 139 & 2, & 140 & 3, & 141 & -8, & 142 & -9, & 143 & 4 /) 144 144 145 145
Note: See TracChangeset
for help on using the changeset viewer.