Changeset 5760

Timestamp:

Jul 4, 2025, 12:15:05 PM (8 hours ago)

Author:

lguez

Message:

Move the call to define_sw_albedo_intervals

Move the call to define_sw_albedo_intervals before the call to
rad_config%read. We avoid a double call to
radiation_config::consolidate_sw_albedo_intervals since, now,
define_sw_albedo_intervals is called before
radiation_interface::setup_radiation, so this%is_consolidated in
define_sw_albedo_intervals is false. Also, the values of shortwave
albedo bounds defined by define_sw_albedo_intervals are now default
values and we avoid silenlty overwriting the values of
sw_albedo_wavelength_bound and i_sw_albedo_index chosen by the
user in the namelist. Note that this new ordering of statements is the
same than in file ecrad/ifs/radiation_setup.F90.

File:

• LMDZ6/trunk/libf/phylmd/ecrad/lmdz/radiation_setup.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/ecrad/lmdz/radiation_setup.f90

@@ -108 +108 @@
          &   4 /)
 
-    ! AI ATTENTION (parameters read in namelist file)
-    !    file_name="namelist_ecrad"
-    call rad_config%read(file_name=file_name)
-    call driver_config%read(file_name)
-    call rad_config%print(iverbose = 2)
-
-    ! Use configuration data to set-up radiation scheme, including
-    ! reading scattering datafiles
-    CALL setup_radiation(rad_config)
-
     ! Populate the mapping between the 14 RRTM shortwave bands and the
     ! 6 albedo inputs. The mapping according to the stated wavelength
@@ -136 +126 @@
     !!         &  (/ 8.0e-6_jprb,13.0e-6_jprb /),  (/ 1,2,1 /))
 
+    ! AI ATTENTION (parameters read in namelist file)
+    !    file_name="namelist_ecrad"
+    call rad_config%read(file_name=file_name)
+    call driver_config%read(file_name)
+    call rad_config%print(iverbose = 2)
+
+    ! Use configuration data to set-up radiation scheme, including
+    ! reading scattering datafiles
+    CALL setup_radiation(rad_config)
+
     !    ! Get spectral weightings for UV and PAR
     call rad_config%get_sw_weights(0.2e-6_jprb, 0.4415e-6_jprb, &