Changeset 4815

Timestamp:

Feb 13, 2024, 11:47:48 AM (3 months ago)

Author:

nfevrier

Message:

Implémentation de la correction de N. Lebas sur lsc_scav

File:

• LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/lsc_scav.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/lsc_scav.F90

@@ -75 +75 @@
 !  frac_ev = frac_gas ou frac_aer
   REAL,PARAMETER :: frac_gas=1.0  ! cste pour la reevaporation pour les gaz
-  REAL           :: frac_aer      ! cste pour la reevaporation pour les particules
+
+! Nicolas Février
+! Nicolas Lebas : Bugfix in large scale scavenging: variable frac_aer (use for aerosols) was only on the first step and not stored for next timesteps.
+
+  REAL,SAVE                 :: frac_aer      ! cste pour la reevaporation pour les particules
   REAL,DIMENSION(klon,klev) :: deltaP     ! P(i+1)-P(i)
   REAL,DIMENSION(klon,klev) :: beta_ev    !  dP/P(i+1)
+
+!$OMP THREADPRIVATE(frac_aer)
 
 !  101.325  m3/l x Pa/atm