Changeset 4683

Timestamp:

Sep 11, 2023, 12:20:59 PM (8 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

Location:

LMDZ6/trunk/libf/phylmd

Files:

• lmdz_cloud_optics_prop.F90 (moved) (moved from LMDZ6/trunk/libf/phylmd/newmicro.F90) (2 diffs)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_cloud_optics_prop.F90

@@ -1 +1 @@
 ! $Id$
-
-SUBROUTINE newmicro(flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, paprs, pplay, t, pqlwp, picefra, pclc, &
+MODULE lmdz_cloud_optics_prop
+
+CONTAINS
+
+SUBROUTINE cloud_optics_prop(flag_aerosol, ok_cdnc, bl95_b0, bl95_b1, paprs, pplay, t, pqlwp, picefra, pclc, &
     pcltau, pclemi, pch, pcl, pcm, pct, pctlwp, xflwp, xfiwp, xflwc, xfiwc, &
     mass_solu_aero, mass_solu_aero_pi, pcldtaupi, latitude_deg, distcltop, temp_cltop, re, fl, reliq, reice, &
@@ -773 +776 @@
   RETURN
 
-END SUBROUTINE newmicro
+END SUBROUTINE cloud_optics_prop
+
+END MODULE lmdz_cloud_optics_prop

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, &