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

Timestamp:

Mar 26, 2026, 7:09:02 PM (9 days ago)

Author:

asima

Message:

Major changes (don't change results):
Subroutine sp_aop_profile in the mo_simple_plume.f90 module is split in 2 subroutines:

• sp_aod550_profile, for calculations at 550um ; only called in macv2sp once per timestep ;
• sp_aop_profile only keeps the calculations of profiles of optical properties at other wavelengths ;

it is called in macv2sp for aod diagnostics at 443 and 865um,
and for each of the 25 wavelengths filling the 6 RRTM bands.

Minor :

• subroutine name MACv2SP changed in macv2sp for coherence with file name ;
• dNovrN becomes an argument INTENT(OUT) of macv2sp (instead of making USE from phys_local_var_mod) ;
• lfactor variable name was used with 2 different meanings : eq 10 and eq 12 from Stevens et al. (2017); celui from eq(10) was renamed as 'lextinct'
• parameter nmon = 12 : removed because not used ;
• variable aod_lmd : renamed as aod_lmdz.

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -4105 +4105 @@
 
                    IF (flag_aerosol .EQ. 7) THEN
-                      CALL MACv2SP(pphis,pplay,paprs,longitude_deg,latitude_deg,  &
-                           tau_aero_sw_rrtm,piz_aero_sw_rrtm,cg_aero_sw_rrtm)
+                      CALL macv2sp(pphis,pplay,paprs,longitude_deg,latitude_deg,  &
+                           tau_aero_sw_rrtm,piz_aero_sw_rrtm,cg_aero_sw_rrtm,dNovrN)
                    ENDIF