From 62206b10a4f8c50f311d4809656a6ea0425266a1 Mon Sep 17 00:00:00 2001 From: Francois Colleoni Date: Fri, 31 May 2024 13:32:08 +0200 Subject: [PATCH] FIX: Fix directory path max length The maximum length of a path has been adjusted to 256 characters instead of 128 --- smash/fcore/derived_type/mwd_setup.f90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/smash/fcore/derived_type/mwd_setup.f90 b/smash/fcore/derived_type/mwd_setup.f90 index 1d67df50..ac2dfd01 100644 --- a/smash/fcore/derived_type/mwd_setup.f90 +++ b/smash/fcore/derived_type/mwd_setup.f90 @@ -92,30 +92,30 @@ module mwd_setup logical :: compute_mean_atmos = .true. logical :: read_qobs = .false. - character(lchar) :: qobs_directory = "..." !$F90W char + character(2*lchar) :: qobs_directory = "..." !$F90W char logical :: read_prcp = .false. character(lchar) :: prcp_format = "..." !$F90W char real(sp) :: prcp_conversion_factor = 1._sp - character(lchar) :: prcp_directory = "..." !$F90W char + character(2*lchar) :: prcp_directory = "..." !$F90W char character(lchar) :: prcp_access = "..." !$F90W char logical :: read_pet = .false. character(lchar) :: pet_format = "..." !$F90W char real(sp) :: pet_conversion_factor = 1._sp - character(lchar) :: pet_directory = "..." !$F90W char + character(2*lchar) :: pet_directory = "..." !$F90W char character(lchar) :: pet_access = "..." !$F90W char logical :: daily_interannual_pet = .false. logical :: read_snow = .false. character(lchar) :: snow_format = "..." !$F90W char real(sp) :: snow_conversion_factor = 1._sp - character(lchar) :: snow_directory = "..." !$F90W char + character(2*lchar) :: snow_directory = "..." !$F90W char character(lchar) :: snow_access = "..." !$F90W char logical :: read_temp = .false. character(lchar) :: temp_format = "..." !$F90W char - character(lchar) :: temp_directory = "..." !$F90W char + character(2*lchar) :: temp_directory = "..." !$F90W char character(lchar) :: temp_access = "..." !$F90W char logical :: prcp_partitioning = .false. @@ -124,7 +124,7 @@ module mwd_setup logical :: read_descriptor = .false. character(lchar) :: descriptor_format = "..." !$F90W char - character(lchar) :: descriptor_directory = "..." !$F90W char + character(2*lchar) :: descriptor_directory = "..." !$F90W char character(20), allocatable, dimension(:) :: descriptor_name !$F90W char-array ! Post processed variables