Changeset 3572 for trunk/LMDZ.PLUTO/libf/phypluto/dyn1d

Timestamp:

Jan 13, 2025, 2:52:33 PM (4 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/dyn1d/kcm1d.F90 (modified) (6 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/kcm1d.F90

@@ -75 +75 @@
 
   ! not used
-  real cloudfrac(1,llm)
-  real totcloudfrac(1)
   real tau_col(1)
 
@@ -104 +102 @@
 
   pi=2.E+0*asin(1.E+0)
-
-  cloudfrac(1,:)  = 0.0
-  totcloudfrac(1)  = 0.0
-
 
   nlayer=llm
@@ -385 +379 @@
           fluxabs_sw,fluxtop_dn,OLR_nu,OSR_nu,GSR_nu,     &
           int_dtaui,int_dtauv,                            &
-          tau_col,cloudfrac,totcloudfrac,                 &
-          .false.,firstcall,lastcall)
+          tau_col,firstcall,lastcall)
 
      !write(*,*) 'BASE 3'
@@ -396 +389 @@
      !     fluxsurfabs_sw,'T',fluxtop_lw,'U',                      &
      !     fluxabs_sw,'V',fluxtop_dn,'W',OLR_nu,'X',OSR_nu,'Y',tau_col,'Z',    &
-     !     cloudfrac,'A1',totcloudfrac,'A2',.false.,'A3',firstcall,'A4',lastcall
+     !     .false.,'A3',firstcall,'A4',lastcall
 
 
@@ -437 +430 @@
        fluxtop_lw, fluxabs_sw,fluxtop_dn,OLR_nu,OSR_nu,GSR_nu, &
        int_dtaui,int_dtauv,                                    &
-       tau_col,cloudfrac,totcloudfrac,                         &
-       .false.,firstcall,lastcall)
+       tau_col,firstcall,lastcall)
 
 
@@ -449 +441 @@
      !     fluxsurfabs_sw,'T',fluxtop_lw,'U',                      &
      !     fluxabs_sw,'V',fluxtop_dn,'W',OLR_nu,'X',OSR_nu,'Y',tau_col,'Z',    &
-     !     cloudfrac,'A1',totcloudfrac,'A2',.false.,'A3',firstcall,'A4',lastcall
+     !     .false.,'A3',firstcall,'A4',lastcall