v1.0.6.6 new warning message when when X1, X3 or X6 < 1e-2 in RunModel* functions

R/RunModel_CemaNeigeGR4J.R

@@ -18,11 +18,11 @@ RunModel_CemaNeigeGR4J <- function(InputsModel,RunOptions,Param){
 
       Param_X1X3_threshold <- 1e-2
       if (Param[1L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n New X1 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n X1 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[1L] <- Param_X1X3_threshold
       }
       if (Param[3L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n New X3 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n X3 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[3L] <- Param_X1X3_threshold
       }
       

R/RunModel_CemaNeigeGR5J.R

@@ -18,11 +18,11 @@ RunModel_CemaNeigeGR5J <- function(InputsModel,RunOptions,Param){
       
       Param_X1X3_threshold <- 1e-2
       if (Param[1L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n New X1 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n X1 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[1L] <- Param_X1X3_threshold
       }
       if (Param[3L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n New X3 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n X3 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[3L] <- Param_X1X3_threshold
       }
 

R/RunModel_CemaNeigeGR6J.R

@@ -18,15 +18,15 @@ RunModel_CemaNeigeGR6J <- function(InputsModel,RunOptions,Param){
       
       Param_X1X3X6_threshold <- 1e-2
       if (Param[1L] < Param_X1X3X6_threshold) {
-        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n New X1 value: %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
+        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n X1 set to %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
         Param[1L] <- Param_X1X3X6_threshold
       }
       if (Param[3L] < Param_X1X3X6_threshold) {
-        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n New X3 value: %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
+        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n X3 set to %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
         Param[3L] <- Param_X1X3X6_threshold
       }
       if (Param[6L] < Param_X1X3X6_threshold) {
-        warning(sprintf("Param[6] (X6: coefficient for emptying exponential store [mm]) < %.2f\n New X6 value: %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
+        warning(sprintf("Param[6] (X6: coefficient for emptying exponential store [mm]) < %.2f\n X6 set to %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
         Param[6L] <- Param_X1X3X6_threshold
       }         
 

R/RunModel_GR2M.R

@@ -15,7 +15,7 @@ RunModel_GR2M <- function(InputsModel,RunOptions,Param){
       
       Param_X1_threshold <- 1e-2
       if (Param[1L] < Param_X1_threshold) {
-        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n New X1 value: %.2f", Param_X1_threshold, Param_X1_threshold))
+        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n X1 set to %.2f", Param_X1_threshold, Param_X1_threshold))
         Param[1L] <- Param_X1_threshold
       }
 

R/RunModel_GR4H.R

@@ -15,11 +15,11 @@ RunModel_GR4H <- function(InputsModel,RunOptions,Param){
       
       Param_X1X3_threshold <- 1e-2
       if (Param[1L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n New X1 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n X1 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[1L] <- Param_X1X3_threshold
       }
       if (Param[3L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n New X3 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n X3 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[3L] <- Param_X1X3_threshold
       }
 

R/RunModel_GR4J.R

@@ -15,11 +15,11 @@ RunModel_GR4J <- function(InputsModel,RunOptions,Param){
       
       Param_X1X3_threshold <- 1e-2
       if (Param[1L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n New X1 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n X1 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[1L] <- Param_X1X3_threshold
       }
       if (Param[3L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n New X3 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n X3 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[3L] <- Param_X1X3_threshold
       }
 

R/RunModel_GR5J.R

@@ -15,11 +15,11 @@ RunModel_GR5J <- function(InputsModel,RunOptions,Param){
       
       Param_X1X3_threshold <- 1e-2
       if (Param[1L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n New X1 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n X1 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[1L] <- Param_X1X3_threshold
       }
       if (Param[3L] < Param_X1X3_threshold) {
-        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n New X3 value: %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
+        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n X3 set to %.2f", Param_X1X3_threshold, Param_X1X3_threshold))
         Param[3L] <- Param_X1X3_threshold
       }
       

R/RunModel_GR6J.R

@@ -15,15 +15,15 @@ RunModel_GR6J <- function(InputsModel,RunOptions,Param){
       
       Param_X1X3X6_threshold <- 1e-2
       if (Param[1L] < Param_X1X3X6_threshold) {
-        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n New X1 value: %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
+        warning(sprintf("Param[1] (X1: production store capacity [mm]) < %.2f\n X1 set to %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
         Param[1L] <- Param_X1X3X6_threshold
       }
       if (Param[3L] < Param_X1X3X6_threshold) {
-        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n New X3 value: %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
+        warning(sprintf("Param[3] (X3: routing store capacity [mm]) < %.2f\n X3 set to %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
         Param[3L] <- Param_X1X3X6_threshold
       }
       if (Param[6L] < Param_X1X3X6_threshold) {
-        warning(sprintf("Param[6] (X6: coefficient for emptying exponential store [mm]) < %.2f\n New X6 value: %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
+        warning(sprintf("Param[6] (X6: coefficient for emptying exponential store [mm]) < %.2f\n X6 set to %.2f", Param_X1X3X6_threshold, Param_X1X3X6_threshold))
         Param[6L] <- Param_X1X3X6_threshold
       }