Changeset 6095 for LMDZ6

Timestamp:

Mar 9, 2026, 10:15:49 AM (8 days ago)

Author:

idelkadi

Message:

Possibility to read the solar constant fraction per band added if ok_suntime_rrtm

Location:

LMDZ6/trunk/libf/phylmd/ecrad

Files:

• data/solarforcing_ECRAD_14bands_1850.nc (added)
• data/solarforcing_ECRAD_14bands_2014.nc (added)
• lmdz/radiation_scheme_mod.f90 (modified) (3 diffs)
• lmdz/read_rsun_ecrad.F90 (added)
• radiation/radiation_single_level.F90 (modified) (1 diff)

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

@@ -48 +48 @@
 !-----------------------------------------------------------------------
 
-! Modules from ifs or ifsaux libraries
+! Modules 
 USE PARKIND1 , ONLY : JPIM, JPRB
 USE YOMHOOK  , ONLY : LHOOK, DR_HOOK
@@ -66 +66 @@
 USE mod_phys_lmdz_para
 use geometry_mod, only: longitude_deg, latitude_deg
+USE read_rsun_ecrad_m,        ONLY : SPSOLARSCAL
 
 IMPLICIT NONE
@@ -316 +317 @@
 single_level%lw_emissivity(KIDIA:KFDIA,1)  = PEMIS(KIDIA:KFDIA)
 !single_level%lw_emissivity(KIDIA:KFDIA,2)  = PEMIS_WINDOW(KIDIA:KFDIA)
+!if (rad_config%use_spectral_solar_scaling) then
+!  single_level%spectral_solar_scaling(:)     = SPSOLARSCAL(:)
+!endif
 
 ! Create the relevant seed from date and time get the starting day

LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_single_level.F90

@@ -139 +139 @@
     allocate(this%sw_albedo(ncol, nalbedobands))
 
+    allocate(this%spectral_solar_scaling(config%n_bands_sw))
+
     if (present(use_sw_albedo_direct)) then
       if (use_sw_albedo_direct) then