Changeset 2782 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Jul 26, 2022, 8:45:42 AM (2 years ago)
Author:
emillour
Message:

Generic GCM:

  • OpenMP syntax fix in rain_generic.F90

EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/rain_generic.F90

    r2725 r2782  
    8181   logical,save :: evap_prec_generic ! Does the rain evaporate ?
    8282   REAL,SAVE :: evap_coeff_generic ! multiplication evaporation constant. 1. gives the model of gregory et al.
    83    !$OMP THREADPRIVATE(evap_prec_generic evap_coeff_generic)
     83   !$OMP THREADPRIVATE(evap_prec_generic,evap_coeff_generic)
    8484
    8585   ! for simple scheme : precip_scheme_generic=1
Note: See TracChangeset for help on using the changeset viewer.