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

Timestamp:

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

Author:

mturbet

Message:

renaming and merging of radiative routines in phygeneric

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/aerosol_radius.F90 (moved) (moved from trunk/LMDZ.GENERIC/libf/phygeneric/radii_mod.F90) (12 diffs)

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

@@ -1 +1 @@
 !==================================================================
-module radii_mod
+module aerosol_radius
 !==================================================================
 !  module to centralize the radii calculations for aerosols
@@ -13 +13 @@
 !$OMP THREADPRIVATE(radfixed)
 
-!     water cloud optical properties (initialized in su_aer_radii below)
+!     water cloud optical properties (initialized in aerosol_radius_init below)
       real, save ::  rad_h2o
       real, save ::  rad_h2o_ice
@@ -21 +21 @@
 
       real,save :: nueff_iaero_h2o ! effective variance of H2O aerosol
-                                   ! (initialized in su_aer_radii below)
+                                   ! (initialized in aerosol_radius_init below)
 !$OMP THREADPRIVATE(nueff_iaero_h2o)
 ! coefficients for a variable nueff() for h2o aerosol; disabled for now 
@@ -32 +32 @@
 
 !==================================================================
-   subroutine su_aer_radii(ngrid,nlayer,reffrad,nueffrad)
+   subroutine aerosol_radius_init(ngrid,nlayer,reffrad,nueffrad)
 !==================================================================
 !     Purpose
@@ -50 +50 @@
       use ioipsl_getin_p_mod, only: getin_p
       use radinc_h, only: naerkind
-      use aerosol_mod, only: iaero_back2lay, iaero_co2, iaero_dust, &
+      use aerosol_global_variables , only: iaero_back2lay, iaero_co2, iaero_dust, &
                              iaero_h2o, iaero_h2so4, iaero_nh3, iaero_nlay, &
                              iaero_aurora, iaero_generic, i_rgcs_ice, &
@@ -185 +185 @@
 
 
-   end subroutine su_aer_radii
+   end subroutine aerosol_radius_init
 !==================================================================
 
@@ -243 +243 @@
 
 ! For now only constant nueff is enabled (otherwise some specific handling
-! of variable nueff is required in aeroptproperties)
+! of variable nueff is required in aerosol_optical_properties)
       nueffrad(1:ngrid,1:nlayer)=nueff_iaero_h2o
 
@@ -296 +296 @@
 
 !==================================================================
-   subroutine co2_reffrad(ngrid,nlayer,nq,pq,reffrad)
+   subroutine aerosol_radius_co2(ngrid,nlayer,nq,pq,reffrad)
 !==================================================================
 !     Purpose
@@ -333 +333 @@
       end if
 
-   end subroutine co2_reffrad
-!==================================================================
-
-
-
-!==================================================================
-   subroutine dust_reffrad(ngrid,nlayer,reffrad)
+   end subroutine aerosol_radius_co2
+!==================================================================
+
+
+
+!==================================================================
+   subroutine aerosol_radius_dust(ngrid,nlayer,reffrad)
 !==================================================================
 !     Purpose
@@ -359 +359 @@
       reffrad(1:ngrid,1:nlayer) = 2.e-6 ! dust
 
-   end subroutine dust_reffrad
-!==================================================================
-
-
-!==================================================================
-   subroutine h2so4_reffrad(ngrid,nlayer,reffrad)
+   end subroutine aerosol_radius_dust
+!==================================================================
+
+
+!==================================================================
+   subroutine aerosol_radius_h2so4(ngrid,nlayer,reffrad)
 !==================================================================
 !     Purpose
@@ -384 +384 @@
       reffrad(1:ngrid,1:nlayer) = 1.e-6 ! h2so4
 
-   end subroutine h2so4_reffrad
-!==================================================================
-
-!==================================================================
-   subroutine back2lay_reffrad(ngrid,reffrad,nlayer,pplev)
+   end subroutine aerosol_radius_h2so4
+!==================================================================
+
+!==================================================================
+   subroutine aerosol_radius_back2lay(ngrid,reffrad,nlayer,pplev)
 !==================================================================
 !     Purpose
@@ -426 +426 @@
           ENDDO
 
-   end subroutine back2lay_reffrad
-!==================================================================
-
-end module radii_mod
-!==================================================================
+   end subroutine aerosol_radius_back2lay
+!==================================================================
+
+end module aerosol_radius
+!==================================================================