Changeset 3572 for trunk/LMDZ.PLUTO/libf/phypluto/aeropacity.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/aeropacity.F90 (modified) (4 diffs)

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

@@ -6 +6 @@
 
       Subroutine aeropacity(ngrid,nlayer,nq,pplay,pplev,pt, pq, &
-         aerosol,reffrad,nueffrad, QREFvis3d,QREFir3d,tau_col, &
-         cloudfrac,totcloudfrac,clearsky)
+         aerosol,reffrad,nueffrad, QREFvis3d,QREFir3d,tau_col)
 
        use radinc_h, only : L_TAUMAX,naerkind
-       use aerosol_mod, only: iaero_haze, i_haze, iaero_generic, &
-                              noaero
+       use aerosol_mod, only: iaero_haze, i_haze
        USE tracer_h, only: noms,rho_n2,rho_ice,rho_q,mmol
        use comcstfi_mod, only: g, pi, mugaz, avocado
        use geometry_mod, only: latitude
-       use callkeys_mod, only: aerofixn2,kastprof,cloudlvl,     &
-                pres_bottom_tropo,pres_top_tropo,obs_tau_col_tropo,     &
-                pres_bottom_strato,pres_top_strato,obs_tau_col_strato,  &
-                nlayaero, aeronlay_tauref, aeronlay_choice,             &
-                aeronlay_pbot, aeronlay_ptop, aeronlay_sclhght,         &
-                aerogeneric
-        use generic_tracer_index_mod, only: generic_tracer_index
+       use callkeys_mod, only: kastprof
        implicit none
 
@@ -70 +62 @@
       REAL,INTENT(IN) :: QREFir3d(ngrid,nlayer,naerkind)
       REAL,INTENT(OUT):: tau_col(ngrid) !column integrated visible optical depth
-      ! BENJAMIN MODIFS
-      real,intent(in) :: cloudfrac(ngrid,nlayer) ! cloud fraction
-      real,intent(out) :: totcloudfrac(ngrid) ! total cloud fraction
-      logical,intent(in) :: clearsky
 
       real aerosol0, obs_tau_col_aurora, pm
@@ -96 +84 @@
       integer igen_ice,igen_gas ! to store the index of generic tracer
       logical dummy_bool ! dummy boolean just in case we need one
-      ! integer i_rgcs_ice(aerogeneric)
       !  for venus clouds
       real      :: p_bot,p_top,h_bot,h_top,mode_dens,h_lay
@@ -112 +99 @@
           endif
         enddo
-
-        if (noaero) then
-          print*, "No active aerosols found in aeropacity"
-        else
-          print*, "If you would like to use aerosols, make sure any old"
-          print*, "start files are updated in newstart using the option"
-          print*, "q=0"
-          write(*,*) "Active aerosols found in aeropacity:"
-        endif
 
         firstcall=.false.