--- trunk/libf/dyn3d/advtrac_m.f90 2008/03/03 16:32:04 5 +++ trunk/libf/dyn3d/iniadvtrac.f90 2008/08/07 12:29:13 18 @@ -1,4 +1,4 @@ -module advtrac_m +module iniadvtrac_m ! From advtrac.h, v 1.1.1.1 2004/05/19 12:53:06 @@ -106,7 +106,7 @@ if (nq_local > nqmx) then print *, 'nombre de traceurs trop important' print *, 'verifier traceur.def' - stop + stop 1 endif do iq=1, nq_local @@ -215,4 +215,4 @@ END subroutine iniadvtrac -end module advtrac_m +end module iniadvtrac_m