From 383bf35e911fb935c7cd6008e813a7ddf4ddbca2 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 20 Mar 2024 11:41:12 +0100
Subject: [PATCH] Philippe 20/03/2024: fix: set correct lengths for
modd_data_lake filenames
---
src/SURFEX/modd_data_lake.F90 | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/src/SURFEX/modd_data_lake.F90 b/src/SURFEX/modd_data_lake.F90
index aef9ee076..79f7e672e 100644
--- a/src/SURFEX/modd_data_lake.F90
+++ b/src/SURFEX/modd_data_lake.F90
@@ -1,4 +1,4 @@
-!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!SFX_LIC Copyright 1994-2024 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC for details. version 1.
@@ -6,9 +6,11 @@
MODULE MODD_DATA_LAKE
! #####################
!
- CHARACTER(LEN=80), PARAMETER :: CLAKELTA = 'LAKE_LTA_NEW.nc' ! The dataset file name
- CHARACTER(LEN=80), PARAMETER :: CLAKELDB = 'GlobalLakeDepth' ! The file name of the map for global lake depth
- CHARACTER(LEN=80), PARAMETER :: CSTATUSLDB = 'GlobalLakeStatus' ! The file name of the map for global lake depth
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
+!
+ CHARACTER(LEN=NFILENAMELGTMAX), PARAMETER :: CLAKELTA = 'LAKE_LTA_NEW.nc' ! The dataset file name
+ CHARACTER(LEN=NFILENAMELGTMAX), PARAMETER :: CLAKELDB = 'GlobalLakeDepth' ! The file name of the map for global lake depth
+ CHARACTER(LEN=NFILENAMELGTMAX), PARAMETER :: CSTATUSLDB = 'GlobalLakeStatus' ! The file name of the map for global lake depth
!
INTEGER, PARAMETER :: NLONG=360, & ! Number of grid boxes of the "lake grid" in longitude
NLATG=150 ! Number of grid boxes of the "lake grid" in latitude
--
GitLab