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

try to solve bad issue from pipeline for last commit - compilation with -no_io

parent eebb2caa
Pipeline #188343 passed with stages
in 14 minutes and 32 seconds
MODULE tracer_icosa_mod
#ifndef NO_TRACER_PARSER
USE trac_types_mod_ico
#endif
INTEGER, PARAMETER :: advect_none = 0
......@@ -34,10 +36,10 @@ CONTAINS
USE grid_param
#ifndef NO_TRACER_PARSER
USE readTracFiles_mod_ico
USE strings_mod_ico
#endif
USE getin_mod, ONLY : getin
USE strings_mod_ico
IMPLICIT NONE
......@@ -56,11 +58,6 @@ CONTAINS
!$OMP THREADPRIVATE(types_trac)
type_trac="dynamico"
CALL getin("type_trac",type_trac)
IF(strParse(type_trac, '|', types_trac, n=nt)) STOP 'probleme pour parser type_trac'
print *, 'apres parsing dans dynamico types_trac = ', types_trac, size(types_trac)
!$OMP BARRIER
......@@ -71,6 +68,10 @@ 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)
IF (is_exist) THEN
......
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