Changeset 4805

Timestamp:

Feb 8, 2024, 9:16:51 AM (11 months ago)

Author:

lebasn

Message:

Bugfix in large scale scavenging: variable frac_aer (use for aerosols) was only on the first step and not stored for next timesteps.

File:

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

LMDZ6/trunk/libf/phylmd/lsc_scav.F90

@@ -67 +67 @@
 !  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
+  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