Changeset 4791 for LMDZ6/trunk/libf/phylmd/ecrad

Timestamp:

Jan 25, 2024, 12:50:10 PM (11 months ago)

Author:

idelkadi

Message:

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

File:

• LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_scheme.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/ecrad/radiation/radiation_scheme.F90

@@ -21 +21 @@
 ! Inputs
      & (KIDIA, KFDIA, KLON, KLEV, KAEROSOL, NSW, &
-     &  namelist_file, ok_3Deffect, IDAY, TIME, &
+     &  namelist_file, ok_3Deffect, &
+     &  debut, ok_volcan, flag_aerosol_strat, &
+     &  IDAY, TIME, &
      &  PSOLAR_IRRADIANCE, &
      &  PMU0, PTEMPERATURE_SKIN, &
@@ -183 +185 @@
 ! Name of file names specified on command line
 character(len=512), INTENT(IN) :: namelist_file
-logical, INTENT(IN)            :: ok_3Deffect
+logical, INTENT(IN)            :: ok_3Deffect, debut, ok_volcan
+INTEGER(KIND=JPIM), INTENT(IN) :: flag_aerosol_strat
+
 
 ! OUTPUT ARGUMENTS
@@ -577 +581 @@
                              rad_config,thermodynamics,aerosol)
     endif                 
+    if (flag_aerosol_strat.eq.2) then
+       CALL readaerosolstrato_ecrad(rad_config, debut, ok_volcan)
+    endif
  endif