Changeset 6096 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

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

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -142 +142 @@
     USE YOERAD, ONLY : NRADLP
     !    USE YOESW, ONLY : RSUN
+#endif
+
+#ifdef CPP_ECRAD
+    USE read_rsun_ecrad_m, ONLY : read_rsun_ecrad
 #endif
 
@@ -4368 +4372 @@
        ENDIF
 
+       IF (iflag_rrtm.EQ.2.AND.ok_suntime_rrtm) THEN
+#ifdef CPP_RRTM
+          CALL read_rsun_rrtm(debut)
+#endif
+       ENDIF
+
        IF (mydebug) THEN
           CALL writefield_phy('u_seri',u_seri,nbp_lev)