From d82b7bdda77f458508cf8f83642b63b8a5826172 Mon Sep 17 00:00:00 2001
From: Theophile Terraz <theophile.terraz@inrae.fr>
Date: Mon, 12 Dec 2022 10:16:37 +0100
Subject: [PATCH] write contrainte
---
code/rubar20.f90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/code/rubar20.f90 b/code/rubar20.f90
index 4ed2ca7..40b7ad5 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
--
GitLab