Changeset 2905
- Timestamp:
- Jun 8, 2017, 7:03:51 PM (8 years ago)
- Location:
- LMDZ5/trunk/libf/phylmd
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cv3_routines.F90
r2902 r2905 113 113 ok_homo_tend=.TRUE. 114 114 CALL getin_p('ok_homo_tend',ok_homo_tend) 115 ok_entrain=.TRUE. 116 CALL getin_p('ok_entrain',ok_entrain) 115 117 116 118 coef_peel=0.25 -
LMDZ5/trunk/libf/phylmd/cv3p_mixing.F90
r2902 r2905 72 72 REAL :: Tm !Mixed draught temperature 73 73 LOGICAL, DIMENSION (nloc) :: lwork 74 LOGICAL, SAVE :: ok_entrain=.TRUE.75 !$OMP THREADPRIVATE(ok_entrain)76 74 77 75 REAL amxupcrit, df, ff … … 115 113 !>jyg 116 114 ! 117 CALL getin_p('ok_entrain',ok_entrain)118 115 END IF 119 116 -
LMDZ5/trunk/libf/phylmd/cv3param.h
r2901 r2905 9 9 logical ok_homo_tend 10 10 logical ok_optim_yield 11 logical ok_entrain 11 12 logical ok_convstop 12 13 logical ok_intermittent … … 43 44 ,ok_convstop, ok_intermittent & 44 45 ,ok_optim_yield & 46 ,ok_entrain & 45 47 ,ok_homo_tend 46 48 !$OMP THREADPRIVATE(/cv3param/)
Note: See TracChangeset
for help on using the changeset viewer.