Changeset 6159 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Apr 5, 2026, 4:26:11 PM (7 days ago)

Author:

idelkadi

Message:

Rewriting and simplification of the interface between the LMDZ code and the radiative transfer codes (Old code / RRTM / ECRAD):

• radlwsw_m.F90: call to the 3 codes controlled by the logical flag iflag_rrtm
• lmdz_calloldrad_m.F90: interface with the old radiative transfer code
• lmdz_call_rrtm_m.F90: interface with the RRTM radiative code
• lmdz_call_ecrad_m.F90: interface with the ECRAD radiative code
• lmdz_rad_ini_m.F90: initialisations common to the three radiative codes
• lmdz_rad_out_m.F90: radiative flux outputs for LMDZ

Translated with DeepL.com (free version)

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -1386 +1386 @@
      CALL histwrite_phy(o_ZFLUX_DIR_SUN, ZFLUX_DIR_SUN)
 
-     IF (ok_3Deffect) THEN
+     IF (ok_2xcall_ecrad) THEN
        CALL histwrite_phy(o_cloud_cover_sw_s2, cloud_cover_sw_s2)
        IF (vars_defined) THEN
@@ -1499 +1499 @@
        CALL histwrite_phy(o_ZFLUX_DIR_CLEAR_s2, ZFLUX_DIR_CLEAR_s2)
        CALL histwrite_phy(o_ZFLUX_DIR_SUN_s2, ZFLUX_DIR_SUN_s2)
-    ENDIF !ok_3Deffect
+    ENDIF !ok_2xcall_ecrad
 #endif