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

Timestamp:

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

Author:

mturbet

Message:

minor renaming commit

File:

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

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

@@ -15 +15 @@
       use tracer_h, only : igcm_h2o_ice
       use watercommon_h, only: T_h2O_ice_liq,T_h2O_ice_clouds     
-      use aerosol_radius, only: h2o_cloudrad
+      use aerosol_radius, only: aerosol_radius_h2o_liquid_ice_separate
 
       IMPLICIT NONE
@@ -166 +166 @@
 c Compute liquid and ice particle radii
         if((iq.eq.igcm_h2o_ice).and.crystal_shape) then
-            call h2o_cloudrad(ngrid,nlay,pqi,reffh2oliq,reffh2oice)
+            call aerosol_radius_h2o_liquid_ice_separate(ngrid,
+     &                         nlay,pqi,reffh2oliq,reffh2oice)
         endif