Changeset 4079 for trunk/LMDZ.GENERIC/libf/phygeneric/physiq_mod.F90

Timestamp:

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

Author:

mturbet

Message:

minor renaming commit

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/physiq_mod.F90

@@ -25 +25 @@
       use rad_correlatedk_ini_aerosol_mod, only: rad_correlatedk_ini_aerosol
       use rad_correlatedk_init_stellar_mod, only: rad_correlatedk_init_stellar
-      use aerosol_radius, only: h2o_reffrad, aerosol_radius_co2
+      use aerosol_radius, only: aerosol_radius_h2o_liquid_ice_mixture, aerosol_radius_co2
       use aerosol_global_variables , only: aerosol_init, iaero_co2, iaero_h2o
       use surfdat_h, only: phisfi, zmea, zstd, zsig, zgam, zthe, &
@@ -2305 +2305 @@
          endif
          if(water.and.(iaero_h2o.ne.0))then
-            call h2o_reffrad(ngrid,nlayer,zq(1,1,igcm_h2o_ice),zt, &
+            call aerosol_radius_h2o_liquid_ice_mixture(ngrid,nlayer,zq(1,1,igcm_h2o_ice),zt, &
                              reffrad(1,1,iaero_h2o),nueffrad(1,1,iaero_h2o))
             do ig=1,ngrid