Changeset 3455


Ignore:
Timestamp:
Jan 30, 2019, 11:55:14 AM (6 years ago)
Author:
jyg
Message:

Adding some forgotten SAVE in wake.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3454 r3455  
    196196  INTEGER                                               :: nsub
    197197  REAL                                                  :: dtimesub
    198   REAL                                                  :: wdensmin
     198  REAL, SAVE                                            :: wdensmin
     199  !$OMP THREADPRIVATE(wdensmin)
    199200  REAL, SAVE                                            :: sigmad, hwmin, wapecut, cstart
    200201  !$OMP THREADPRIVATE(sigmad, hwmin, wapecut, cstart)
    201   REAL                                                  :: sigmaw_max
    202   REAL                                                  :: dens_rate
     202  REAL, SAVE                                            :: sigmaw_max
     203  !$OMP THREADPRIVATE(sigmaw_max) 
     204  REAL, SAVE                                            :: dens_rate
     205  !$OMP THREADPRIVATE(dens_rate)
    203206  REAL                                                  :: wdens0
    204207  ! IM 080208
Note: See TracChangeset for help on using the changeset viewer.