From 57758eb95a00c4720b78d9e4b14d1c0684e4414b Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 23 May 2024 09:15:31 +0200 Subject: [PATCH] Philippe 23/05/2024: bugfix: call_rttov13: vector constructor was using character strings with different lengths --- src/MNH/call_rttov13.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/MNH/call_rttov13.f90 b/src/MNH/call_rttov13.f90 index ddc9b7dc9..06e057dbd 100644 --- a/src/MNH/call_rttov13.f90 +++ b/src/MNH/call_rttov13.f90 @@ -248,7 +248,7 @@ CHARACTER(LEN=4), DIMENSION(13) :: YLBL_ICI = (/ & CHARACTER(LEN=4), DIMENSION(2) :: YLBL_DPR = (/ '13', '35' /) CHARACTER(LEN=4), DIMENSION(1) :: YLBL_CPR = (/ '94' /) CHARACTER(LEN=4), DIMENSION(13) :: YLBL_GMI = (/ & - '10V','10H','18V','18H','23V','36V','36H','89V','89H','166V','166H','1833','1837'/) + '10V ','10H ','18V ','18H ','23V ','36V ','36H ','89V ','89H ','166V','166H','1833','1837'/) ! ----------------------------------------------------------------------------- LOGICAL (kind=jplm) , ALLOCATABLE :: calcemis (:) -- GitLab