From 945e5a2240e0ab6ed761622b5114dc442306e1e5 Mon Sep 17 00:00:00 2001 From: Quentin Rodier <quentin.rodier@meteo.fr> Date: Tue, 25 May 2021 14:58:16 +0200 Subject: [PATCH] Quentin 25/05/2021: bugfix compilation with ifort does not support lower string length when the variable is defined with a specific character number --- src/MNH/condensation.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/MNH/condensation.f90 b/src/MNH/condensation.f90 index 6eaafe5aa..a21ed2793 100644 --- a/src/MNH/condensation.f90 +++ b/src/MNH/condensation.f90 @@ -24,8 +24,8 @@ INTEGER, INTENT(IN) :: KKB ! value of the first point INTEGER, INTENT(IN) :: KKE ! value of the last point in z INTEGER, INTENT(IN) :: KKL ! +1 if grid goes from ground to atmosphere top, -1 otherwise CHARACTER(len=1), INTENT(IN) :: HFRAC_ICE -CHARACTER(len=80), INTENT(IN) :: HCONDENS -CHARACTER(len=4), INTENT(IN) :: HLAMBDA3 ! formulation for lambda3 coeff +CHARACTER(len=4), INTENT(IN) :: HCONDENS +CHARACTER(len=*), INTENT(IN) :: HLAMBDA3 ! formulation for lambda3 coeff REAL, DIMENSION(KIU,KJU,KKU), INTENT(IN) :: PPABS ! pressure (Pa) REAL, DIMENSION(KIU,KJU,KKU), INTENT(IN) :: PZZ ! height of model levels (m) REAL, DIMENSION(KIU,KJU,KKU), INTENT(IN) :: PRHODREF @@ -153,8 +153,8 @@ INTEGER, INTENT(IN) :: KKB ! value of the first point INTEGER, INTENT(IN) :: KKE ! value of the last point in z INTEGER, INTENT(IN) :: KKL ! +1 if grid goes from ground to atmosphere top, -1 otherwise CHARACTER(len=1), INTENT(IN) :: HFRAC_ICE -CHARACTER(len=80), INTENT(IN) :: HCONDENS -CHARACTER(len=4), INTENT(IN) :: HLAMBDA3 ! formulation for lambda3 coeff +CHARACTER(len=4), INTENT(IN) :: HCONDENS +CHARACTER(len=*), INTENT(IN) :: HLAMBDA3 ! formulation for lambda3 coeff REAL, DIMENSION(KIU,KJU,KKU), INTENT(IN) :: PPABS ! pressure (Pa) REAL, DIMENSION(KIU,KJU,KKU), INTENT(IN) :: PZZ ! height of model levels (m) REAL, DIMENSION(KIU,KJU,KKU), INTENT(IN) :: PRHODREF -- GitLab