Changeset 2905


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

Bug correction on ok_entrain making an MPI error

Location:
LMDZ5/trunk/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

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

    r2902 r2905  
    113113     ok_homo_tend=.TRUE.
    114114     CALL getin_p('ok_homo_tend',ok_homo_tend)
     115     ok_entrain=.TRUE.
     116     CALL getin_p('ok_entrain',ok_entrain)
    115117
    116118     coef_peel=0.25

  • 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

  • LMDZ5/trunk/libf/phylmd/cv3param.h

    r2901 r2905  
    99      logical ok_homo_tend
    1010      logical ok_optim_yield
     11      logical ok_entrain
    1112      logical ok_convstop
    1213      logical ok_intermittent
    … …  
    4344                      ,ok_convstop, ok_intermittent &
    4445                      ,ok_optim_yield &
     46                      ,ok_entrain &
    4547                      ,ok_homo_tend
    4648!$OMP THREADPRIVATE(/cv3param/)
Note: See TracChangeset for help on using the changeset viewer.