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

Timestamp:

Sep 11, 2023, 12:20:59 PM (10 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/lmdz_cloud_optics_prop.F90 (moved) (moved from LMDZ6/trunk/libf/phylmd/newmicro.F90) (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