Changeset 4815 for LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd
- Timestamp:
- Feb 13, 2024, 11:47:48 AM (7 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/lsc_scav.F90
r4795 r4815 75 75 ! frac_ev = frac_gas ou frac_aer 76 76 REAL,PARAMETER :: frac_gas=1.0 ! cste pour la reevaporation pour les gaz 77 REAL :: frac_aer ! cste pour la reevaporation pour les particules 77 78 ! Nicolas Février 79 ! 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. 80 81 REAL,SAVE :: frac_aer ! cste pour la reevaporation pour les particules 78 82 REAL,DIMENSION(klon,klev) :: deltaP ! P(i+1)-P(i) 79 83 REAL,DIMENSION(klon,klev) :: beta_ev ! dP/P(i+1) 84 85 !$OMP THREADPRIVATE(frac_aer) 80 86 81 87 ! 101.325 m3/l x Pa/atm
Note: See TracChangeset
for help on using the changeset viewer.