write contrainte

d82b7bdd · Theophile Terraz · a924c211 · d82b7bdd
Commit d82b7bdd authored 2 years ago by Theophile Terraz
Hide whitespace changes
Inline Side-by-side

Showing

with 4 additions and 3 deletions
+4 -3
--- 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