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

Timestamp:

Apr 5, 2026, 4:26:11 PM (5 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/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1407 +1407 @@
        !AI 08 2023
 #ifdef CPP_ECRAD
-       ok_3Deffect=.false.
-       CALL getin_p('ok_3Deffect',ok_3Deffect)
+       ok_2xcall_ecrad=.false.
+       CALL getin_p('ok_2xcall_ecrad',ok_2xcall_ecrad)
        namelist_ecrad_file='namelist_ecrad'
 #endif
@@ -4556 +4556 @@
           ! A.I aout 2023
           ! Effet 3D des nuages Ecrad
-          ! a passer : nom du ficher namelist et cles ok_3Deffect
+          ! a passer : nom du ficher namelist et cles ok_2appel_ecrad
           ! a declarer comme iflag_rrtm et a lire dans physiq.def
 #ifdef CPP_ECRAD
-          IF (ok_3Deffect) then
-             !                print*,'ok_3Deffect = ',ok_3Deffect
+          IF (ok_2xcall_ecrad) then
+             !                print*,'ok_2xcall_ecrad = ',ok_2xcall_ecrad
              namelist_ecrad_file='namelist_ecrad_s2'
              CALL radlwsw &
@@ -4598 +4598 @@
                   ZFLUX_DIR, ZFLUX_DIR_CLEAR, ZFLUX_DIR_SUN, &
                   cloud_cover_sw_s2)
-          ENDIF ! ok_3Deffect
+          ENDIF ! ok_2xcall_ecrad
 #endif