diff --git a/src/SURFEX/modd_data_lake.F90 b/src/SURFEX/modd_data_lake.F90 index aef9ee0766314c97ab3f5a7fe195ac7257bbc4db..79f7e672e62e5bfc96b28ae9b7ce0ae4b2c5dc70 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