Ignore:
Timestamp:
Jun 8, 2017, 7:03:51 PM (7 years ago)
Author:
musat
Message:

Bug correction on ok_entrain making an MPI error

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3p_mixing.F90

    r2902 r2905  
    7272  REAL                               :: Tm         !Mixed draught temperature
    7373  LOGICAL, DIMENSION (nloc)          :: lwork
    74   LOGICAL, SAVE                      :: ok_entrain=.TRUE.
    75 !$OMP THREADPRIVATE(ok_entrain)
    7674
    7775  REAL amxupcrit, df, ff
    … …  
    115113!>jyg
    116114!
    117     CALL getin_p('ok_entrain',ok_entrain)
    118115  END IF
    119116
Note: See TracChangeset for help on using the changeset viewer.