Changeset 4079 for trunk/LMDZ.GENERIC/libf/phygeneric/callsedim.F

Timestamp:

Feb 19, 2026, 9:22:06 PM (9 days ago)

Author:

mturbet

Message:

minor renaming commit

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/callsedim.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/callsedim.F

@@ -10 +10 @@
 
       use radinc_h, only : naerkind
-      use aerosol_radius, only: h2o_reffrad
+      use aerosol_radius, only: aerosol_radius_h2o_liquid_ice_mixture
       use aerosol_global_variables , only : iaero_h2o
       USE tracer_h, only : igcm_co2_ice,igcm_h2o_ice,radius,rho_q
@@ -128 +128 @@
 ! Water          
        if (water.and.(iaero_h2o.ne.0).and.(iq.eq.igcm_h2o_ice)) then
-            ! compute radii for h2o_ice 
-             call h2o_reffrad(ngrid,nlay,zqi(1,1,igcm_h2o_ice),zt,
-     &                reffrad(1,1,iaero_h2o),nueffrad(1,1,iaero_h2o))
-            ! call sedimentation for h2o_ice
-             call newsedim(ngrid,nlay,ngrid*nlay,ptimestep,
-     &            pplev,masse,epaisseur,zt,reffrad(1,1,iaero_h2o),
-     &            rho_q(iq),zqi(1,1,igcm_h2o_ice),wq,iq)
+         ! compute radii for h2o_ice 
+         call aerosol_radius_h2o_liquid_ice_mixture(ngrid,nlay,zqi(1,
+     &   1,igcm_h2o_ice),zt,reffrad(1,1,iaero_h2o),
+     &   nueffrad(1,1,iaero_h2o))
+         ! call sedimentation for h2o_ice
+         call newsedim(ngrid,nlay,ngrid*nlay,ptimestep,
+     &        pplev,masse,epaisseur,zt,reffrad(1,1,iaero_h2o),
+     &        rho_q(iq),zqi(1,1,igcm_h2o_ice),wq,iq)
 
 ! General Case