diff --git a/code/rubar20.f90 b/code/rubar20.f90 index 4ed2ca7f48e6f9eb70b3f3200fdcd48e12b0f8f1..40b7ad56fb69a035c829299cbb61d2f64d3b6f6c 100644 --- a/code/rubar20.f90 +++ b/code/rubar20.f90 @@ -719,9 +719,10 @@ ! enddo write(id_tps,'(f15.3)')tm write(id_tps,'(8f10.5)') (het(ie),ie=1,ne) -! call write_contrainte(id_tps) - write(id_tps,'(8f10.5)') (quet(ie),ie=1,ne) - write(id_tps,'(8f10.5)') (qvet(ie),ie=1,ne) + call write_contrainte(id_tps) +! write(id_tps,'(8f10.5)') (quet(ie),ie=1,ne) +! write(id_tps,'(8f10.5)') (qvet(ie),ie=1,ne) + call write_contrainte(id_tps) #if WITH_CGNS !!! test cgns !!! nb_timesteps_cgns = nb_timesteps_cgns+1