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

Timestamp:

Sep 11, 2023, 12:20:59 PM (13 months ago)

Author:

evignon

Message:

debut de replayisation de newmicro en atelier:
-on renomme la routine en cloud_optics_prop
-on la met dans un module
Laurent, Abderrahmane, Lea, Maelle, JB, Etienne

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -79 +79 @@
     USE wxios, ONLY: g_ctx, wxios_set_context
     USE lmdz_lscp, ONLY : lscp
+    USE lmdz_cloud_optics_prop, ONLY : cloud_optics_prop
     USE lmdz_lscp_old, ONLY : fisrtilp
     USE lmdz_wake_ini, ONLY : wake_ini
@@ -4346 +4347 @@
 #endif
           ENDIF
-          CALL newmicro (flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, &
+          CALL cloud_optics_prop(flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, &
                paprs, pplay, t_seri, radocond, picefra, cldfra, &
                cldtau, cldemi, cldh, cldl, cldm, cldt, cldq, &