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

Timestamp:

Jan 25, 2024, 12:44:53 PM (4 months ago)

Author:

idelkadi

Message:

Continued work on implementing the Ecrad code in LMDZ (Integration of aerosols):

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -4590 +4590 @@
           !
           CALL radlwsw &
-               (dist, rmu0, fract,  &
+               (debut, dist, rmu0, fract,  &
                                 !albedo SB >>>
                                 !      paprs, pplay,zxtsol,albsol1, albsol2,  &
@@ -4668 +4668 @@
                 !
                 CALL radlwsw &
-                     (dist, rmu0, fract,  &
+                     (debut, dist, rmu0, fract,  &
                                 !albedo SB >>>
                                 !      paprs, pplay,zxtsol,albsol1, albsol2,  &
@@ -4718 +4718 @@
                 namelist_ecrad_file='namelist_ecrad_s2'
                 CALL radlwsw &
-                     (dist, rmu0, fract,  &
+                     (debut, dist, rmu0, fract,  &
                      paprs, pplay,zxtsol,SFRWL,albsol_dir, albsol_dif, &
                      t_seri,q_seri,wo, &