Changeset 3585 for trunk/LMDZ.PLUTO/libf/phypluto/radii_mod.F90

Timestamp:

Jan 20, 2025, 10:17:54 AM (12 days ago)

Author:

debatzbr

Message:

Connecting microphysics to radiative transfer + miscellaneous cleans

File:

• trunk/LMDZ.PLUTO/libf/phypluto/radii_mod.F90 (modified) (3 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/radii_mod.F90

@@ -4 +4 @@
 !  module to centralize the radii calculations for aerosols
 !==================================================================
-
-!     N2 cloud properties (initialized in inifis)
-      real,save :: Nmix_n2 ! Number mixing ratio of N2 ice particles
-!$OMP THREADPRIVATE(Nmix_n2)
 
       ! flag to specify if we assume a constant fixed radius for particles
@@ -30 +26 @@
       use datafile_mod, only: hazerad_file
       use aerosol_mod, only: iaero_haze, i_haze
-      use tracer_h, only: radius, nqtot, is_rgcs, nmono
+      use tracer_h, only: radius, nqtot, nmono
       Implicit none
 
@@ -67 +63 @@
       USE tracer_h, only:rho_n2,nmono
       use comcstfi_mod, only: pi
-      use aerosol_mod, only: iaero_haze, i_haze
+      use aerosol_mod, only: iaero_haze
       use datafile_mod
       Implicit none