Commit 4fbd393a authored by Anne COZIC's avatar Anne COZIC
Browse files

fix a bug introduce by last commit

parent 4ea5f981
Pipeline #188387 passed with stages
in 21 minutes and 20 seconds
......@@ -57,7 +57,12 @@ CONTAINS
CHARACTER(LEN=256), SAVE, ALLOCATABLE :: types_trac(:) !--- Keyword for tracers type(s), parsed version
!$OMP THREADPRIVATE(types_trac)
#ifndef NO_TRACER_PARSER
type_trac="dynamico"
CALL getin("type_trac",type_trac)
IF(strParse(type_trac, '|', types_trac, n=nt)) STOP 'problem to check type_trac'
#endif
!$OMP BARRIER
......@@ -68,9 +73,6 @@ CONTAINS
#ifndef NO_TRACER_PARSER
type_trac="dynamico"
CALL getin("type_trac",type_trac)
IF(strParse(type_trac, '|', types_trac, n=nt)) STOP 'problem to check type_trac'
INQUIRE(file="tracer.def", exist=is_exist)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment