Changeset 3992 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Oct 21, 2021, 4:46:18 PM (3 years ago)
Author:
musat
Message:

Correction de bug
IM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/fisrtilp.F90

    r3875 r3992  
    104104  !
    105105  REAL, SAVE :: seuil_neb=0.001 ! un nuage existe vraiment au-dela
     106  !$OMP THREADPRIVATE(seuil_neb)
     107
    106108  !<LTP
    107109  REAL smallestreal
    108110  REAL, SAVE :: rain_int_min=0.001 !intensité locale minimum pour la pluie avant diminution de la fraction précipitante associée = 0.001 mm/s
    109111  !>LTP 
    110 
    111 
    112   !$OMP THREADPRIVATE(seuil_neb)
     112  !$OMP THREADPRIVATE(rain_int_min)
    113113
    114114
Note: See TracChangeset for help on using the changeset viewer.