Changeset 6096 for LMDZ6


Ignore:
Timestamp:
Mar 9, 2026, 11:42:05 AM (5 days ago)
Author:
idelkadi
Message:

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

Location:
LMDZ6/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r6095 r6096  
    317317single_level%lw_emissivity(KIDIA:KFDIA,1)  = PEMIS(KIDIA:KFDIA)
    318318!single_level%lw_emissivity(KIDIA:KFDIA,2)  = PEMIS_WINDOW(KIDIA:KFDIA)
    319 !if (rad_config%use_spectral_solar_scaling) then
    320 !  single_level%spectral_solar_scaling(:)     = SPSOLARSCAL(:)
    321 !endif
     319if (rad_config%use_spectral_solar_scaling) then
     320  single_level%spectral_solar_scaling(:)     = SPSOLARSCAL(:)
     321endif
    322322
    323323! Create the relevant seed from date and time get the starting day

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

    r6095 r6096  
    110110
    111111    use yomhook, only : lhook, dr_hook, jphook
    112 
     112    USE radiation_config, ONLY : config_type
     113
     114    type(config_type) :: config
    113115    class(single_level_type), intent(inout) :: this
    114116    integer,                  intent(in)    :: ncol, nalbedobands, nemisbands

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r6082 r6096  
    142142    USE YOERAD, ONLY : NRADLP
    143143    !    USE YOESW, ONLY : RSUN
     144#endif
     145
     146#ifdef CPP_ECRAD
     147    USE read_rsun_ecrad_m, ONLY : read_rsun_ecrad
    144148#endif
    145149
    … …  
    43684372       ENDIF
    43694373
     4374       IF (iflag_rrtm.EQ.2.AND.ok_suntime_rrtm) THEN
     4375#ifdef CPP_RRTM
     4376          CALL read_rsun_rrtm(debut)
     4377#endif
     4378       ENDIF
     4379
    43704380       IF (mydebug) THEN
    43714381          CALL writefield_phy('u_seri',u_seri,nbp_lev)
Note: See TracChangeset for help on using the changeset viewer.