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

Timestamp:

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

Author:

mturbet

Message:

renaming and merging of radiative routines in phygeneric

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/aerosol_global_variables.F90 (moved) (moved from trunk/LMDZ.GENERIC/libf/phygeneric/aerosol_mod.F90) (5 diffs)

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

@@ -1 +1 @@
 !==================================================================
-module aerosol_mod
+module aerosol_global_variables 
 implicit none
 
@@ -7 +7 @@
 !  aerosol indexes: these are initialized to be 0 if the
 !                 corresponding aerosol was not activated in callphys.def
-!                 -- otherwise a value is set via iniaerosol
+!                 -- otherwise a value is set via aerosol_init
       integer, save, protected :: iaero_co2 = 0 
       integer, save, protected :: iaero_h2o = 0
@@ -43 +43 @@
 contains
 
-  SUBROUTINE iniaerosol
+  SUBROUTINE aerosol_init
 
   use mod_phys_lmdz_para, only : is_master
@@ -181 +181 @@
 
 ! For the zero aerosol case, we currently make a dummy co2 aerosol which is zero everywhere.
-! (See aeropacity.F90 for how this works). A better solution would be to turn off the 
+! (See aerosol_opacity.F90 for how this works). A better solution would be to turn off the 
 ! aerosol machinery in the no aerosol case, but this would be complicated. LK
 
@@ -197 +197 @@
       print*, 'according to current options in callphys.def'
       print*, 'or change/correct incompatible options there'
-      print*, 'Abort in iniaerosol'
+      print*, 'Abort in aerosol_init'
     endif
     call abort_physic("iniaerosl",'wrong number of aerosols',1)
   endif ! of if (ia.ne.naerkind)
 
-  END SUBROUTINE iniaerosol
-
-end module aerosol_mod
-!==================================================================
+  END SUBROUTINE aerosol_init
+
+end module aerosol_global_variables 
+!==================================================================