Changeset 4790 for LMDZ6/trunk

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):

Location:

LMDZ6/trunk/libf/phylmd

Files:

• ecrad/radiation/readaerosolstrato_ecrad.F90 (added)
• physiq_mod.F90 (modified) (3 diffs)
• radlwsw_m.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, &

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

@@ -9 +9 @@
 
 SUBROUTINE radlwsw( &
-   dist, rmu0, fract, &
+   debut, dist, rmu0, fract, &
 !albedo SB >>>
 !  paprs, pplay,tsol,alb1, alb2, &
@@ -249 +249 @@
 
   CHARACTER(len=512), INTENT(in) :: namelist_ecrad_file
+  LOGICAL, INTENT(in)  :: debut
 
 ! Output arguments
@@ -1357 +1358 @@
       & (ist, iend, klon, klev, naero_grp, NSW, &
       & namelist_ecrad_file, ok_3Deffect, &
+      & debut, ok_volcan, flag_aerosol_strat, &
       & day_cur, current_time, & 
 !       Cste solaire/(d_Terre-Soleil)**2