Changeset 3572 for trunk/LMDZ.PLUTO/libf/phypluto/initracer.F90

Timestamp:

Jan 13, 2025, 2:52:33 PM (3 weeks ago)

Author:

debatzbr

Message:

Remove generic_aerosols and generic_condensation, along with their related variables (useless). RENAME THE VARIABLE AEROHAZE TO OPTICHAZE.

File:

• trunk/LMDZ.PLUTO/libf/phypluto/initracer.F90 (modified) (5 diffs)

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

@@ -3 +3 @@
       use surfdat_h, ONLY: dryness
       USE tracer_h
-      USE callkeys_mod, only: aerohaze,nb_monomer,haze,fractal,fasthaze,rad_haze,callmufi
+      USE callkeys_mod, only: optichaze,nb_monomer,haze,fractal,fasthaze,rad_haze,callmufi
       USE recombin_corrk_mod, ONLY: ini_recombin
       USE mod_phys_lmdz_para, only: is_master, bcast
-      use generic_cloud_common_h
       use aerosol_mod, only: iaero_haze,i_haze
       IMPLICIT NONE
@@ -130 +129 @@
        IF (.NOT. allocated(constants_Tref)) allocate(constants_Tref(nq))
        IF (.NOT. allocated(constants_Pref)) allocate(constants_Pref(nq))
-       IF (.NOT. allocated(constants_epsi_generic)) allocate(constants_epsi_generic(nq))
        IF (.NOT. allocated(constants_RLVTT_generic)) allocate(constants_RLVTT_generic(nq))
-       IF (.NOT. allocated(constants_metallicity_coeff)) allocate(constants_metallicity_coeff(nq))
        IF (.NOT. allocated(constants_RCPV_generic)) allocate(constants_RCPV_generic(nq))
 
@@ -160 +157 @@
        constants_Tref(:)=0
        constants_Pref(:)=0
-       constants_epsi_generic(:)=0
        constants_RLVTT_generic(:)=0
-       constants_metallicity_coeff(:)=0
        constants_RCPV_generic(:)=0
 
@@ -418 +413 @@
                 ! constants_Tref(iq)=Tref
                 ! constants_Pref(iq)=Pref
-                ! constants_epsi_generic(iq)=epsi_generic
                 ! constants_RLVTT_generic(iq)=RLVTT_generic
-                ! constants_metallicity_coeff(iq)=metallicity_coeff
                 ! constants_RCPV_generic(iq)=RCPV_generic
         else
@@ -477 +470 @@
 
         ia=0
-        if (aerohaze) then
-           ia=ia+1
-           iaero_haze=ia
-           write(*,*) '--- number of haze aerosol = ', iaero_haze
-
-           block=0  ! Only one type of haze is active : the first one set in traceur.def
-           do iq=1,nq
-             tracername=noms(iq)
-             write(*,*) "--> tracername ",iq,'/',nq,' = ',tracername
-             if (tracername(1:4).eq."haze".and.block.eq.0) then
-               i_haze=iq
-               block=1
-               write(*,*) "i_haze=",i_haze
-               write(*,*) "Careful: if you set many haze traceurs in &
+        if (optichaze) then
+          ia=ia+1
+          iaero_haze=ia
+          write(*,*) '--- number of haze aerosol = ', iaero_haze
+
+          block=0  ! Only one type of haze is active : the first one set in traceur.def
+          do iq=1,nq
+            tracername=noms(iq)
+            write(*,*) "--> tracername ",iq,'/',nq,' = ',tracername
+            if (tracername(1:4).eq."haze".and.block.eq.0) then
+              i_haze=iq
+              block=1
+              write(*,*) "i_haze=",i_haze
+              write(*,*) "Careful: if you set many haze traceurs in &
                 traceur.def,only ",tracername," will be radiatively active &
                 (first one in traceur.def)"
-             endif
-           enddo
-        endif ! end aerohaze
-      endif ! end haze
+            endif
+          enddo
+        endif ! end optichaze
+      endif ! end callmufi or haze
 
 !     Output for records: