From 2e1642faf18d17356affb027b339ae3cd632f3ea Mon Sep 17 00:00:00 2001
From: Johan Fourdrinoy <johan.fourdrinoy@edf.fr>
Date: Mon, 17 Feb 2025 17:45:11 +0800
Subject: [PATCH] [mascaret] Fix bad error message for err_368
---
sources/mascaret/Modules/m_message_c.f90 | 6 +++---
sources/mascaret/Pretrait/lec_sing.f90 | 8 ++++----
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/sources/mascaret/Modules/m_message_c.f90 b/sources/mascaret/Modules/m_message_c.f90
index 8f6b01e9ef..ff3959ebdb 100644
--- a/sources/mascaret/Modules/m_message_c.f90
+++ b/sources/mascaret/Modules/m_message_c.f90
@@ -1232,7 +1232,7 @@ err_366c = '("The parameter value for the dissipation zone is not between",&
character (*), parameter :: &
err_367 = '("Error with the parameters file.",/, &
& "Dissipation zones.",/, &
- & "The reahc number of the dissipation zone # ",i3," is not positive.")'
+ & "The reach number of the dissipation zone # ",i3," is not positive.")'
character (*), parameter :: &
err_367c = '("Reach number of the dissipation zone # ",i3," is <= 0")'
!-------------------------------------------------------------------------
@@ -1240,10 +1240,10 @@ character (*), parameter :: &
err_368 = '("Error with the parameters file.",/, &
& "Singularities.",/, &
& "The type of the singularity # ",i3," = ",i3,/, &
- & "is not compatible with the steady kernel.")'
+ & "is not compatible with the kernel ",i1)'
character (*), parameter :: &
err_368c = '("Type of the singularity # ",i3," = ",i3," is not compatible with",&
- & " the steady kernel")'
+ & " the kernel ",i1)'
!-------------------------------------------------------------------------
character (*), parameter :: &
err_369 = '("Error with the parameters file : ",A,".",/, &
diff --git a/sources/mascaret/Pretrait/lec_sing.f90 b/sources/mascaret/Pretrait/lec_sing.f90
index 048ee0714a..08110e4a8c 100644
--- a/sources/mascaret/Pretrait/lec_sing.f90
+++ b/sources/mascaret/Pretrait/lec_sing.f90
@@ -574,7 +574,7 @@ subroutine LEC_SING( &
Erreur%Numero = 368
Erreur%ft = err_368
Erreur%ft_c = err_368c
- call TRAITER_ERREUR( Erreur , ising , Singularite(ising)%Type )
+ call TRAITER_ERREUR( Erreur , ising , Singularite(ising)%Type , NOYAU_MASCARET )
return
end if
@@ -582,7 +582,7 @@ subroutine LEC_SING( &
Erreur%Numero = 368
Erreur%ft = err_368
Erreur%ft_c = err_368c
- call TRAITER_ERREUR( Erreur , ising , Singularite(ising)%Type )
+ call TRAITER_ERREUR( Erreur , ising , Singularite(ising)%Type , NOYAU_MASCARET )
return
end if
@@ -590,7 +590,7 @@ subroutine LEC_SING( &
Erreur%Numero = 368
Erreur%ft = err_368
Erreur%ft_c = err_368c
- call TRAITER_ERREUR( Erreur , ising , Singularite(ising)%Type )
+ call TRAITER_ERREUR( Erreur , ising , Singularite(ising)%Type , NOYAU_MASCARET )
return
end if
@@ -598,7 +598,7 @@ subroutine LEC_SING( &
Erreur%Numero = 368
Erreur%ft = err_368
Erreur%ft_c = err_368c
- call TRAITER_ERREUR( Erreur , ising , Singularite(ising)%Type )
+ call TRAITER_ERREUR( Erreur , ising , Singularite(ising)%Type , NOYAU_MASCARET )
return
end if
--
GitLab