Changeset 4077 for trunk/LMDZ.GENERIC/libf/phygeneric/condense_co2.F90

Timestamp:

Feb 18, 2026, 10:28:23 AM (7 weeks ago)

Author:

mturbet

Message:

renaming and merging of radiative routines in phygeneric

File:

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

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

@@ -8 +8 @@
       use radinc_h, only : L_NSPECTV
       use gases_h, only: gfrac, igas_co2
-      use radii_mod, only : co2_reffrad
-      use aerosol_mod, only : iaero_co2
+      use aerosol_radius, only : aerosol_radius_co2
+      use aerosol_global_variables , only : iaero_co2
       USE surfdat_h, only: emisice, emissiv
       USE geometry_mod, only: latitude ! in radians
@@ -273 +273 @@
          ! Gravitational sedimentation starts.
             
-         ! Sedimentation computed from radius computed from q in module radii_mod.
-         call co2_reffrad(ngrid,nlayer,nq,zq,reffrad)
+         ! Sedimentation computed from radius computed from q in module aerosol_radius.
+         call aerosol_radius_co2(ngrid,nlayer,nq,zq,reffrad)
          
          DO  ilay=1,nlayer