From f74061c17ab6d858c3f1c40a0ef96627b8dc9aea Mon Sep 17 00:00:00 2001 From: Pierre Tulet <pierre.tulet@aero.obs-mip.fr> Date: Mon, 22 May 2023 17:56:22 +0200 Subject: [PATCH] P.Tulet 22/02/23: changement longueur format. change length format. --- src/MNH/read_chem_data_netcdf_case.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/MNH/read_chem_data_netcdf_case.f90 b/src/MNH/read_chem_data_netcdf_case.f90 index 2648709e0..f55fe1f28 100644 --- a/src/MNH/read_chem_data_netcdf_case.f90 +++ b/src/MNH/read_chem_data_netcdf_case.f90 @@ -175,7 +175,7 @@ INTEGER(kind=CDFINT) :: ind_netcdf ! Indice for netcdf var. INTEGER :: ICHANNEL CHARACTER(LEN=8) :: YMOZ="MOZ1.nam" integer :: IMOZ -CHARACTER(LEN=68) :: YFORMAT +CHARACTER(LEN=100) :: YFORMAT CHARACTER(LEN=40), DIMENSION(:), ALLOCATABLE :: YSPCMNH integer, dimension(:), ALLOCATABLE :: ISPCMOZ CHARACTER(LEN=9) :: YA -- GitLab