diff --git a/DESCRIPTION b/DESCRIPTION
index e94b78b33022f8a4da702d8b4d571b5796fb50e8..af6b61980ff77c113b2963d019aadb7742a5f5fd 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.3.0.3
+Version: 1.3.0.4
 Date: 2019-05-20
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.rmd b/NEWS.rmd
index c32fb94935aab26c8cdc8114b1d3fb5c9f493725..31d0a70e59b53ad49ee578c8d7361f2d931f13dd 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -14,7 +14,7 @@ output:
 
 
 
-### 1.3.0.3 Release Notes (2019-05-20)
+### 1.3.0.4 Release Notes (2019-05-20)
 
 
 #### New features
diff --git a/R/Calibration_Michel.R b/R/Calibration_Michel.R
index 122c50d081c966a5a695da2c0c336637f8f7aadc..2f23888f43c6e13df62a4a59f06f83c667633cfd 100644
--- a/R/Calibration_Michel.R
+++ b/R/Calibration_Michel.R
@@ -82,7 +82,11 @@ Calibration_Michel <- function(InputsModel,
         FUN_TRANSFO <- TransfoParam_CemaNeige
       }
     }
-    if (identical(FUN_MOD, RunModel_CemaNeigeGR4J) | identical(FUN_MOD, RunModel_CemaNeigeGR5J) | identical(FUN_MOD, RunModel_CemaNeigeGR6J)) {
+    if (identical(FUN_MOD, RunModel_CemaNeigeGR4H) |
+        identical(FUN_MOD, RunModel_CemaNeigeGR4J) | identical(FUN_MOD, RunModel_CemaNeigeGR5J) | identical(FUN_MOD, RunModel_CemaNeigeGR6J)) {
+      if (identical(FUN_MOD, RunModel_CemaNeigeGR4H)) {
+        FUN1 <- TransfoParam_GR4H
+      }
       if (identical(FUN_MOD, RunModel_CemaNeigeGR4J)) {
         FUN1 <- TransfoParam_GR4J
       }