Changeset 4815


Ignore:
Timestamp:
Feb 13, 2024, 11:47:48 AM (11 months ago)
Author:
nfevrier
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/lsc_scav.F90

    r4795 r4815  
    7575!  frac_ev = frac_gas ou frac_aer
    7676  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
    7882  REAL,DIMENSION(klon,klev) :: deltaP     ! P(i+1)-P(i)
    7983  REAL,DIMENSION(klon,klev) :: beta_ev    !  dP/P(i+1)
     84
     85!$OMP THREADPRIVATE(frac_aer)
    8086
    8187!  101.325  m3/l x Pa/atm
Note: See TracChangeset for help on using the changeset viewer.