diff --git a/src/SURFEX/ch_init_depconst.F90 b/src/SURFEX/ch_init_depconst.F90
index ab695881a28f0db7ef8545fee016e4818f3b00a3..63a40dc8532ff8defa76eb846a89e4edb6301171 100644
--- a/src/SURFEX/ch_init_depconst.F90
+++ b/src/SURFEX/ch_init_depconst.F90
@@ -45,6 +45,7 @@ USE MODI_CLOSE_NAMELIST
!
USE MODI_CH_OPEN_INPUTB
USE MODD_CH_SURF
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!!
!! IMPLICIT ARGUMENTS
!! ------------------
@@ -61,7 +62,7 @@ IMPLICIT NONE
!* 0.1 declarations of arguments
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Program name
-CHARACTER(LEN=28), INTENT(IN) :: HCHEM_SURF_FILE ! ascii file for chemistry aggregation
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HCHEM_SURF_FILE ! ascii file for chemistry aggregation
INTEGER, INTENT(IN) :: KLUOUT ! output listing channel
CHARACTER(LEN=*), DIMENSION(:), INTENT(IN) :: HSV ! name of chemical species
!
diff --git a/src/SURFEX/ch_init_emissionn.F90 b/src/SURFEX/ch_init_emissionn.F90
index 99e7449ef6604801aafa9297dec5767551207600..7251f854180a3a2fcac28bc2b1e3e32512ad1a07 100644
--- a/src/SURFEX/ch_init_emissionn.F90
+++ b/src/SURFEX/ch_init_emissionn.F90
@@ -36,7 +36,7 @@
!
!
USE MODD_CH_EMIS_FIELD_n, ONLY : CH_EMIS_FIELD_t
-USE MODD_SURF_PAR, ONLY : LEN_HREC
+USE MODD_SURF_PAR, ONLY : LEN_HREC, NFILENAMELGTMAX
!
USE MODI_GET_LUOUT
USE MODI_BUILD_EMISSTAB_n
@@ -69,7 +69,7 @@ CHARACTER(LEN=3), INTENT(IN) :: HINIT ! Flag to know if one initializes:
! ! 'PRE' : only variables to build
! ! an initial file
REAL, DIMENSION(:),INTENT(IN) :: PRHOA ! air density
-CHARACTER(LEN=28), INTENT(IN) :: HCHEM_SURF_FILE ! ascii file for chemistry aggregation
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HCHEM_SURF_FILE ! ascii file for chemistry aggregation
LOGICAL, INTENT(IN) :: LCH_SURF_EMIS
INTEGER, INTENT(IN) :: KEQ
!
diff --git a/src/SURFEX/ch_init_snapn.F90 b/src/SURFEX/ch_init_snapn.F90
index f36f4a266a525618e0fd7ed33b51fe467b49ebd7..df0ec78a0914ca074a50a91339cec41c3fa00450 100644
--- a/src/SURFEX/ch_init_snapn.F90
+++ b/src/SURFEX/ch_init_snapn.F90
@@ -35,6 +35,7 @@
USE MODD_CH_SNAP_n, ONLY : CH_EMIS_SNAP_t
!
USE MODD_CSTS, ONLY : XAVOGADRO, XMD
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE MODI_GET_LUOUT
USE MODI_READ_SURF
USE MODI_ABOR1_SFX
@@ -66,7 +67,7 @@ INTEGER, INTENT(IN) :: KLU ! number of points
! ! 'PRE' : only variables to build
! ! an initial file
REAL, DIMENSION(:),INTENT(IN) :: PRHOA ! air density
-CHARACTER(LEN=28), INTENT(IN) :: HCHEM_SURF_FILE ! ascii file for chemistry aggregation
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HCHEM_SURF_FILE ! ascii file for chemistry aggregation
LOGICAL, INTENT(IN) :: LCH_SURF_EMIS
INTEGER, INTENT(IN) :: KEQ
diff --git a/src/SURFEX/close_aux_io_surf.F90 b/src/SURFEX/close_aux_io_surf.F90
index 54ee0ee81320dffadcd25fdd5bd5c87303af8ca9..825538e851ae122c72cb535986ffa55d3552c310 100644
--- a/src/SURFEX/close_aux_io_surf.F90
+++ b/src/SURFEX/close_aux_io_surf.F90
@@ -41,6 +41,7 @@
!
!
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -78,7 +79,7 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! main program
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
diff --git a/src/SURFEX/close_aux_io_surf_asc.F90 b/src/SURFEX/close_aux_io_surf_asc.F90
index a63278b4fc952bcf7f40f9ae454846603d68bf90..7aafeed755edb86c336d649750458ae637f0f31e 100644
--- a/src/SURFEX/close_aux_io_surf_asc.F90
+++ b/src/SURFEX/close_aux_io_surf_asc.F90
@@ -39,6 +39,7 @@
! ------------
!
USE MODD_IO_SURF_ASC,ONLY:NUNIT,CMASK,NMASK,NFULL
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -48,7 +49,7 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! main program
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
diff --git a/src/SURFEX/close_aux_io_surf_fa.F90 b/src/SURFEX/close_aux_io_surf_fa.F90
index 968404712e50def9bea77b1a12711e99fa2bbc7c..0f14dec78a7e814c503181932f38439c2146624b 100644
--- a/src/SURFEX/close_aux_io_surf_fa.F90
+++ b/src/SURFEX/close_aux_io_surf_fa.F90
@@ -38,6 +38,7 @@
! ------------
!
USE MODD_IO_SURF_FA, ONLY : NUNIT_FA, NFULL, CMASK, NLUOUT, NMASK, CFILEIN_FA, CDNOMC, NMASK
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -48,10 +49,10 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! main program
INTEGER :: IRET ! error code
-CHARACTER(LEN=28) :: YFILE
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!* 0.2 Declarations of local variables
@@ -66,8 +67,8 @@ CMASK=' '
DEALLOCATE(NMASK)
CALL FAIRME(IRET,NUNIT_FA,'UNKNOWN')
!
-YFILE=HFILE(1:LEN_TRIM(HFILE))//'.fa'
-WRITE(NLUOUT,*)'HFILETYPE ',HFILETYPE,'END EXTERNAL',NUNIT_FA,YFILE
+YFILE=TRIM(HFILE)//'.fa'
+WRITE(NLUOUT,*)'HFILETYPE ',HFILETYPE,'END EXTERNAL',NUNIT_FA,TRIM(YFILE)
!
CFILEIN_FA = ' '
NUNIT_FA = 0
diff --git a/src/SURFEX/default_ch_surf_atm.F90 b/src/SURFEX/default_ch_surf_atm.F90
index a080d94b350b10ebee05b3c1cd94f74c07109c3e..98f3b6ece5ad3ca4343cfe9f2a7bdebfa119b987 100644
--- a/src/SURFEX/default_ch_surf_atm.F90
+++ b/src/SURFEX/default_ch_surf_atm.F90
@@ -39,6 +39,8 @@
!
!
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -48,8 +50,8 @@ IMPLICIT NONE
! -------------------------
!
!
- CHARACTER(LEN=28), INTENT(OUT) :: HCHEM_SURF_FILE
-LOGICAL, INTENT(OUT) :: OSURF_EMIS
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HCHEM_SURF_FILE
+LOGICAL, INTENT(OUT) :: OSURF_EMIS
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!* 0.2 Declarations of local variables
@@ -57,7 +59,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('DEFAULT_CH_SURF_ATM',0,ZHOOK_HANDLE)
-HCHEM_SURF_FILE = ' '
+HCHEM_SURF_FILE = ''
OSURF_EMIS = .FALSE.
IF (LHOOK) CALL DR_HOOK('DEFAULT_CH_SURF_ATM',1,ZHOOK_HANDLE)
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/get_teb_depths.F90 b/src/SURFEX/get_teb_depths.F90
index bf826cc409b11b35840f33fc5d69b4b6f3b7ef58..73c34818d309a68cb4246aba50eac1c19f28e4a3 100644
--- a/src/SURFEX/get_teb_depths.F90
+++ b/src/SURFEX/get_teb_depths.F90
@@ -41,7 +41,7 @@
! -----------
!
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t, DATA_COVER_INIT
-USE MODD_SURF_PAR, ONLY : LEN_HREC
+USE MODD_SURF_PAR, ONLY : LEN_HREC, NFILENAMELGTMAX
!
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO
USE MODD_DATA_COVER, ONLY : XDATA_D_ROOF, XDATA_D_ROAD, XDATA_D_WALL, XDATA_D_FLOOR, XDATA_D_MASS
@@ -76,10 +76,10 @@ IMPLICIT NONE
!
TYPE(DATA_COVER_t), INTENT(INOUT) :: DTCO
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! type of input file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! type of input file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! type of input file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! type of input file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
!
REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PD_ROOF
REAL, DIMENSION(:,:), INTENT(OUT), OPTIONAL :: PD_ROAD
diff --git a/src/SURFEX/grid_from_file.F90 b/src/SURFEX/grid_from_file.F90
index 63e70df28994d16a0afe1d7b2608f038c45c5060..d9b79c2ca20867d5ffbfd9f86b7b9ad01b2dc6d6 100644
--- a/src/SURFEX/grid_from_file.F90
+++ b/src/SURFEX/grid_from_file.F90
@@ -43,6 +43,7 @@
!
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODD_SURFEX_MPI, ONLY : NRANK, NSIZE_TASK
!
@@ -74,7 +75,7 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
REAL, DIMENSION(:), POINTER :: PGRID_FULL_PAR
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling the surface
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
LOGICAL, INTENT(IN) :: OGRID ! .true. if grid is imposed by atm. model
CHARACTER(LEN=10), INTENT(OUT) :: HGRID ! type of horizontal grid
diff --git a/src/SURFEX/ini_var_from_data.F90 b/src/SURFEX/ini_var_from_data.F90
index 0ae40bcd252965d1e3990579d8413460340c9f31..1ee4b3ae3ea0bb4aebc587ba388a9d8bbd6ab442 100644
--- a/src/SURFEX/ini_var_from_data.F90
+++ b/src/SURFEX/ini_var_from_data.F90
@@ -14,6 +14,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
TYPE(DATA_COVER_t), INTENT(INOUT) :: DTCO
TYPE(SURF_ATM_GRID_t), INTENT(INOUT) :: UG
TYPE(SURF_ATM_t), INTENT(INOUT) :: U
@@ -25,7 +27,7 @@ REAL, DIMENSION(:,:), INTENT(IN) :: PPAR_VEGTYPE
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), DIMENSION(:), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), DIMENSION(:), INTENT(INOUT) :: HFTYP
REAL, DIMENSION(:), INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
@@ -42,6 +44,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
TYPE(DATA_COVER_t), INTENT(INOUT) :: DTCO
TYPE(SURF_ATM_GRID_t), INTENT(INOUT) :: UG
TYPE(SURF_ATM_t), INTENT(INOUT) :: U
@@ -51,7 +55,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), DIMENSION(:), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), DIMENSION(:), INTENT(INOUT) :: HFTYP
REAL, DIMENSION(:), INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
@@ -68,6 +72,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
REAL, DIMENSION(:,:), INTENT(IN) :: PPAR_VEGTYPE
!
TYPE(DATA_COVER_t), INTENT(INOUT) :: DTCO
@@ -79,7 +85,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), DIMENSION(:,:), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:,:), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), DIMENSION(:,:), INTENT(INOUT) :: HFTYP
REAL, DIMENSION(:,:), INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PFIELD_TIME
@@ -97,6 +103,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
TYPE(DATA_COVER_t), INTENT(INOUT) :: DTCO
TYPE(SURF_ATM_GRID_t), INTENT(INOUT) :: UG
TYPE(SURF_ATM_t), INTENT(INOUT) :: U
@@ -106,7 +114,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), DIMENSION(:,:), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:,:), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), DIMENSION(:,:), INTENT(INOUT) :: HFTYP
REAL, DIMENSION(:,:), INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PFIELD_TIME
@@ -133,7 +141,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
!
USE MODI_INI_VAR_FROM_DATA_0D
@@ -157,7 +165,7 @@ REAL, DIMENSION(:,:), INTENT(IN) :: PPAR_VEGTYPE
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), DIMENSION(:), INTENT(INOUT) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:), INTENT(INOUT) :: HFNAM
CHARACTER(LEN=6), DIMENSION(:), INTENT(INOUT) :: HFTYP
REAL, DIMENSION(:), INTENT(INOUT) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
@@ -287,6 +295,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE MODI_INI_VAR_FROM_DATA_0D
USE MODI_ABOR1_SFX
@@ -308,7 +317,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), DIMENSION(:), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), DIMENSION(:), INTENT(INOUT) :: HFTYP
REAL, DIMENSION(:), INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
@@ -374,7 +383,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGDWORK, ONLY : NSIZE
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
!
@@ -400,7 +409,7 @@ REAL, DIMENSION(:,:), INTENT(IN) :: PPAR_VEGTYPE
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), DIMENSION(:,:), INTENT(INOUT) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:,:), INTENT(INOUT) :: HFNAM
CHARACTER(LEN=6), DIMENSION(:,:), INTENT(INOUT) :: HFTYP
REAL, DIMENSION(:,:), INTENT(INOUT) :: PUNIF
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PFIELD_TIME
@@ -570,6 +579,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE MODI_INI_VAR_FROM_DATA_0D
USE MODI_PUT_IN_TIME
@@ -593,7 +603,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), DIMENSION(:,:), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(:,:), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), DIMENSION(:,:), INTENT(INOUT) :: HFTYP
REAL, DIMENSION(:,:), INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:,:), INTENT(OUT) :: PFIELD_TIME
diff --git a/src/SURFEX/ini_var_from_data_0d.F90 b/src/SURFEX/ini_var_from_data_0d.F90
index 0f8ef4dedb87b9dba4970e890a09d26937646d98..bfbdef46098bf9a158f752f16412eb8cd8b695eb 100644
--- a/src/SURFEX/ini_var_from_data_0d.F90
+++ b/src/SURFEX/ini_var_from_data_0d.F90
@@ -18,6 +18,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
+!
IMPLICIT NONE
!
!* 0.1 Declaration of arguments
@@ -34,7 +36,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:), INTENT(OUT) :: PFIELD
@@ -56,6 +58,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
+!
IMPLICIT NONE
!
!* 0.1 Declaration of arguments
@@ -72,7 +76,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
@@ -97,7 +101,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODI_INI_VAR_FROM_DATA_0D_IN
!
@@ -117,7 +121,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:), INTENT(OUT) :: PFIELD
@@ -156,6 +160,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
+!
USE MODI_INI_VAR_FROM_DATA_0D_IN
!
IMPLICIT NONE
@@ -174,7 +180,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
diff --git a/src/SURFEX/ini_var_from_data_0d_in.F90 b/src/SURFEX/ini_var_from_data_0d_in.F90
index dcdf9c39e2654be5bdb9eee42e0724049269fb42..4fb99558eef1b9f92013905c337821a5a8c6f22e 100644
--- a/src/SURFEX/ini_var_from_data_0d_in.F90
+++ b/src/SURFEX/ini_var_from_data_0d_in.F90
@@ -48,7 +48,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODD_PGDWORK, ONLY : CATYPE
!
@@ -74,7 +74,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=3), INTENT(IN) :: HATYPE
CHARACTER(LEN=*), INTENT(IN) :: HNAME
CHARACTER(LEN=3), INTENT(IN) :: HTYPE
- CHARACTER(LEN=28), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), INTENT(INOUT) :: HFTYP
REAL, INTENT(IN) :: PUNIF
REAL, DIMENSION(:,:), INTENT(OUT) :: PFIELD
diff --git a/src/SURFEX/init_flaken.F90 b/src/SURFEX/init_flaken.F90
index c39462d24a7e00b7e4ddb15a302f1a1939f9cd15..432fe75e2b21aa05387b69de456db886bb56d9ab 100644
--- a/src/SURFEX/init_flaken.F90
+++ b/src/SURFEX/init_flaken.F90
@@ -70,7 +70,7 @@ USE MODD_DST_SURF, ONLY: LVARSIG_DST, NDSTMDE, NDST_MDEBEG, LRGFIX_DST
USE MODD_SLT_SURF, ONLY: LVARSIG_SLT, NSLTMDE, NSLT_MDEBEG, LRGFIX_SLT
!
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODD_SURF_ATM_TURB_n, ONLY : SURF_ATM_TURB_t
!
@@ -137,7 +137,7 @@ INTEGER, INTENT(IN) :: KDAY ! current day (UTC)
REAL, INTENT(IN) :: PTIME ! current time since
! midnight (UTC, s)
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
!
diff --git a/src/SURFEX/init_inland_watern.F90 b/src/SURFEX/init_inland_watern.F90
index 6a6bd314c9b0b91a498a422ed1f8e05170da1461..c15d71165239d508517098da80a2536a5405922f 100644
--- a/src/SURFEX/init_inland_watern.F90
+++ b/src/SURFEX/init_inland_watern.F90
@@ -54,6 +54,7 @@ USE MODD_DIAG_n, ONLY : DIAG_OPTIONS_t, DIAG_t
!
!
USE MODD_CSTS, ONLY : XTT
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODD_SURF_ATM_TURB_n, ONLY : SURF_ATM_TURB_t
!
@@ -105,7 +106,7 @@ REAL, INTENT(IN) :: PTIME ! current time since
! midnight (UTC, s)
TYPE(SURF_ATM_TURB_t), INTENT(IN) :: AT ! atmospheric turbulence parameters
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
REAL(KIND=JPRB) :: ZHOOK_HANDLE
diff --git a/src/SURFEX/init_isban.F90 b/src/SURFEX/init_isban.F90
index 789cefd74ac77c2f04d2ae03cdc51720c62278ae..afb06dc364a57d499283831d6e41285256a85611 100644
--- a/src/SURFEX/init_isban.F90
+++ b/src/SURFEX/init_isban.F90
@@ -106,7 +106,7 @@ USE MODD_DATA_COVER, ONLY : XDATA_LAI, XDATA_H_TREE,
!
USE MODD_WRITE_SURF_ATM, ONLY : LSPLIT_PATCH
USE MODD_SURF_ATM, ONLY : LCPL_GCM, XCO2UNCPL
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_AGRI, ONLY : LAGRIP, LIRRIGMODE, NPATCH_TREE
!
USE MODE_TARTES, ONLY : INIT_TARTES
@@ -198,7 +198,7 @@ INTEGER, INTENT(IN) :: KMONTH ! current month (UTC)
INTEGER, INTENT(IN) :: KDAY ! current day (UTC)
REAL, INTENT(IN) :: PTIME ! current time since midnight (UTC, s)
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
!
diff --git a/src/SURFEX/init_naturen.F90 b/src/SURFEX/init_naturen.F90
index 565114c7caf5c8562a5808c21f56359ce10c7f49..d4c2b305b64b3194eccac87aa33a43bd671dac71 100644
--- a/src/SURFEX/init_naturen.F90
+++ b/src/SURFEX/init_naturen.F90
@@ -70,6 +70,7 @@ USE MODD_BLOWSNW_n, ONLY : BLOWSNW_t
USE MODD_SURF_ATM_TURB_n, ONLY : SURF_ATM_TURB_t
!
USE MODD_CSTS, ONLY : XTT
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -126,7 +127,7 @@ REAL, DIMENSION(KI,IM%MSF%NMEGAN_NBR),INTENT(IN) :: PMEGAN_FIELDS
TYPE(DATE), INTENT(INOUT) :: TPDATE_END
TYPE(SURF_ATM_TURB_t), INTENT(IN) :: AT ! atmospheric turbulence parameters
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
REAL(KIND=JPRB) :: ZHOOK_HANDLE
diff --git a/src/SURFEX/init_pgd_surf_atm.F90 b/src/SURFEX/init_pgd_surf_atm.F90
index b109258c6e3a39cbfdb8efdf4e775bd6e2160d1b..709579b5ff5f1c95580f189b30c78da6b9a2b769 100644
--- a/src/SURFEX/init_pgd_surf_atm.F90
+++ b/src/SURFEX/init_pgd_surf_atm.F90
@@ -37,6 +37,8 @@ USE MODD_SURFEX_n, ONLY : SURFEX_t
USE MODD_TYPE_DATE_SURF, ONLY : DATE
USE MODD_SURF_ATM_TURB_n, ONLY : SURF_ATM_TURB_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -51,7 +53,7 @@ TYPE(SURFEX_t), INTENT(INOUT) :: YSC
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=3), INTENT(IN) :: HINIT ! fields to initialize 'ALL', 'PRE', 'PGD'
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
INTEGER, INTENT(IN) :: KYEAR ! year
INTEGER, INTENT(IN) :: KMONTH ! month
diff --git a/src/SURFEX/init_seafluxn.F90 b/src/SURFEX/init_seafluxn.F90
index 16d10df6de59ebc071e41fa6f1b461eafdd3fa59..685f000ecf62659c9f2c68a8aa8439365aed8b93 100644
--- a/src/SURFEX/init_seafluxn.F90
+++ b/src/SURFEX/init_seafluxn.F90
@@ -67,7 +67,7 @@ USE MODD_SFX_OASIS, ONLY : LCPL_WAVE, LCPL_SEA, LCPL_SEAICE, LCPL_SEACARB
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
USE MODD_CSTS, ONLY : XTTS
USE MODD_SNOW_PAR, ONLY : XZ0HSN
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_CHS_AEROSOL, ONLY: LVARSIGI, LVARSIGJ
USE MODD_DST_SURF, ONLY: LVARSIG_DST, NDSTMDE, NDST_MDEBEG, LRGFIX_DST
USE MODD_SLT_SURF, ONLY: LVARSIG_SLT, NSLTMDE, NSLT_MDEBEG, LRGFIX_SLT
@@ -143,7 +143,7 @@ REAL, INTENT(IN) :: PTIME ! current time since
! midnight (UTC, s)
!
TYPE(SURF_ATM_TURB_t), INTENT(IN) :: AT ! atmospheric turbulence parameters
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
!
diff --git a/src/SURFEX/init_sean.F90 b/src/SURFEX/init_sean.F90
index 622295dc15b875e4bb86b7fb9dd803adb9b561f0..241325223a448ad1014f16cc2cfb9e067b785c63 100644
--- a/src/SURFEX/init_sean.F90
+++ b/src/SURFEX/init_sean.F90
@@ -57,6 +57,7 @@ USE MODD_DIAG_n, ONLY : DIAG_t, DIAG_OPTIONS_t
USE MODD_SURF_ATM_TURB_n, ONLY : SURF_ATM_TURB_t
!
USE MODD_CSTS, ONLY : XTT
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -105,7 +106,7 @@ REAL, INTENT(IN) :: PTIME ! current time since
! midnight (UTC, s)
TYPE(SURF_ATM_TURB_t), INTENT(IN) :: AT ! atmospheric turbulence parameters
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
REAL(KIND=JPRB) :: ZHOOK_HANDLE
diff --git a/src/SURFEX/init_surf_atmn.F90 b/src/SURFEX/init_surf_atmn.F90
index fda0a4dd8d7e02818bb729ac67d642aac7c2405e..33c13cea281fa2a1cbb69acd7b32c1c022e5dd1a 100644
--- a/src/SURFEX/init_surf_atmn.F90
+++ b/src/SURFEX/init_surf_atmn.F90
@@ -76,7 +76,7 @@ USE MODD_SURF_CONF, ONLY : CPROGNAME
USE MODD_DATA_COVER_PAR, ONLY : NTILESFC
USE MODD_DATA_COVER, ONLY : LCLIM_LAI, NECO2_START_YEAR, NECO2_END_YEAR
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_CHS_AEROSOL, ONLY : LVARSIGI, LVARSIGJ
USE MODD_WRITE_SURF_ATM, ONLY : LNOWRITE_CANOPY, LNOWRITE_TEXFILE
USE MODD_SURF_ATM_TURB_n, ONLY : SURF_ATM_TURB_t
@@ -179,7 +179,7 @@ TYPE(DATE), INTENT(INOUT) :: TPDATE_END
!
TYPE(SURF_ATM_TURB_t), INTENT(IN) :: AT ! atmospheric turbulence parameters
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
!
diff --git a/src/SURFEX/init_teb_veg_optionsn.F90 b/src/SURFEX/init_teb_veg_optionsn.F90
index d4ab898818381be53c43f57c9f429809506e90aa..a44ae6c093093a5c8ecac984635b093ea793e93c 100644
--- a/src/SURFEX/init_teb_veg_optionsn.F90
+++ b/src/SURFEX/init_teb_veg_optionsn.F90
@@ -53,7 +53,7 @@ USE MODD_TYPE_DATE_SURF
USE MODD_TYPE_SNOW
!
USE MODD_DATA_COVER_PAR, ONLY: NVEGTYPE
-USE MODD_SURF_PAR, ONLY: XUNDEF, NUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX, XUNDEF, NUNDEF, LEN_HREC
USE MODD_ISBA_PAR, ONLY : XOPTIMGRID
!
USE MODI_READ_NAM_PGD_ISBA
@@ -106,14 +106,14 @@ CHARACTER(LEN=3) :: YPHOTO ! photosynthesis option
LOGICAL :: GTR_ML ! new radiative transfert
CHARACTER(LEN=4) :: YALBEDO
REAL :: ZRM_PATCH ! threshold to remove little fractions of patches
-CHARACTER(LEN=28) :: YSAND ! file name for sand fraction
-CHARACTER(LEN=28) :: YCLAY ! file name for clay fraction
-CHARACTER(LEN=28) :: YSOC_TOP ! file name for organic carbon top soil
-CHARACTER(LEN=28) :: YSOC_SUB ! file name for organic carbon sub soil
-CHARACTER(LEN=28) :: YCTI ! file name for topographic index
-CHARACTER(LEN=28) :: YRUNOFFB ! file name for runoffb parameter
-CHARACTER(LEN=28) :: YWDRAIN ! file name for wdrain parameter
-CHARACTER(LEN=28) :: YPERM ! file name for permafrost distribution
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSAND ! file name for sand fraction
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCLAY ! file name for clay fraction
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_TOP ! file name for organic carbon top soil
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_SUB ! file name for organic carbon sub soil
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCTI ! file name for topographic index
+CHARACTER(LEN=NFILENAMELGTMAX) :: YRUNOFFB ! file name for runoffb parameter
+CHARACTER(LEN=NFILENAMELGTMAX) :: YWDRAIN ! file name for wdrain parameter
+CHARACTER(LEN=NFILENAMELGTMAX) :: YPERM ! file name for permafrost distribution
CHARACTER(LEN=6) :: YSANDFILETYPE ! sand data file type
CHARACTER(LEN=6) :: YCLAYFILETYPE ! clay data file type
CHARACTER(LEN=6) :: YSOCFILETYPE ! organic carbon data file type
@@ -135,8 +135,8 @@ LOGICAL :: LIMP_CTI ! Imposed maps of topographic index
LOGICAL :: LIMP_PERM ! Imposed maps of permafrost distribution
LOGICAL :: LLULCC ! land-use scheme activation key
REAL, DIMENSION(150) :: ZSOILGRID ! Soil grid reference for DIF
-CHARACTER(LEN=28) :: YPH ! file name for pH
-CHARACTER(LEN=28) :: YFERT ! file name for fertilisation rate
+CHARACTER(LEN=NFILENAMELGTMAX) :: YPH ! file name for pH
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFERT ! file name for fertilisation rate
CHARACTER(LEN=6) :: YPHFILETYPE ! pH data file type
CHARACTER(LEN=6) :: YFERTFILETYPE ! fertilisation data file type
REAL :: XUNIF_PH ! uniform value of pH
diff --git a/src/SURFEX/init_tebn.F90 b/src/SURFEX/init_tebn.F90
index 26aa3ff0bae7a71d9d8a888e9817c67dedec533c..755d37e29d4290fe3642068c565a9b177013d03f 100644
--- a/src/SURFEX/init_tebn.F90
+++ b/src/SURFEX/init_tebn.F90
@@ -80,7 +80,7 @@ USE MODD_SNOW_PAR, ONLY : XEMISSN
!
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
!
-USE MODD_SURF_PAR, ONLY: XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_TYPE_DATE_SURF
USE MODD_ISBA_PAR, ONLY: XEMISVEG
USE MODD_TEB_PAR, ONLY: XD_FLOOR_DEF, XHC_FLOOR_DEF, XTC_FLOOR_DEF, XTS_FLOOR
@@ -205,7 +205,7 @@ REAL, INTENT(IN) :: PTIME ! current time si
! midnight (UTC, s)
TYPE(SURF_ATM_TURB_t), INTENT(IN) :: AT ! atmospheric turbulence parameters
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
!
diff --git a/src/SURFEX/init_townn.F90 b/src/SURFEX/init_townn.F90
index 1c933c10084013adff1ae54ca54a2ec33fd0a4ed..d09383b4ded5ae1410815feecf0f3a7c47020d66 100644
--- a/src/SURFEX/init_townn.F90
+++ b/src/SURFEX/init_townn.F90
@@ -58,6 +58,7 @@ USE MODD_DIAG_n, ONLY : DIAG_OPTIONS_t, DIAG_t
USE MODD_SURF_ATM_TURB_n, ONLY : SURF_ATM_TURB_t
!
USE MODD_CSTS, ONLY : XTT
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -109,7 +110,7 @@ REAL, INTENT(IN) :: PTIME ! current time since
! midnight (UTC, s)
TYPE(SURF_ATM_TURB_t), INTENT(IN) :: AT ! atmospheric turbulence parameters
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
REAL(KIND=JPRB) :: ZHOOK_HANDLE
diff --git a/src/SURFEX/init_watfluxn.F90 b/src/SURFEX/init_watfluxn.F90
index 2137e4662cd8e0770ca166fa0c6389f9611b8163..9ceac81289770cd4c4f33c096e1a5063ad326ff9 100644
--- a/src/SURFEX/init_watfluxn.F90
+++ b/src/SURFEX/init_watfluxn.F90
@@ -61,7 +61,7 @@ USE MODD_CSTS, ONLY : XTT
USE MODD_CHS_AEROSOL, ONLY: LVARSIGI, LVARSIGJ
USE MODD_DST_SURF, ONLY: LVARSIG_DST, NDSTMDE, NDST_MDEBEG, LRGFIX_DST
USE MODD_SLT_SURF, ONLY: LVARSIG_SLT, NSLTMDE, NSLT_MDEBEG, LRGFIX_SLT
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODD_SURF_ATM_TURB_n, ONLY : SURF_ATM_TURB_t
!
@@ -126,7 +126,7 @@ REAL, INTENT(IN) :: PTIME ! current time since
! midnight (UTC, s)
TYPE(SURF_ATM_TURB_t), INTENT(IN) :: AT ! atmospheric turbulence parameters
!
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
CHARACTER(LEN=2), INTENT(IN) :: HTEST ! must be equal to 'OK'
diff --git a/src/SURFEX/modd_ch_isban.F90 b/src/SURFEX/modd_ch_isban.F90
index cdb60e93910e621f899734eb8a7db06be2006ea3..e13085170e1ba2557f3ce2a34c890b62664e85d7 100644
--- a/src/SURFEX/modd_ch_isban.F90
+++ b/src/SURFEX/modd_ch_isban.F90
@@ -35,6 +35,8 @@ USE MODD_SV_n, ONLY : SV_t, SV_INIT
USE MODD_SLT_n, ONLY : SLT_t, SLT_INIT
USE MODD_DST_n, ONLY : DST_t, DST_INIT
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -42,7 +44,7 @@ IMPLICIT NONE
TYPE CH_ISBA_t
!
- CHARACTER(LEN=28) :: CCHEM_SURF_FILE ! name of general (chemical) purpose ASCII input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CCHEM_SURF_FILE ! name of general (chemical) purpose ASCII input file
CHARACTER(LEN=6) :: CCH_DRY_DEP ! deposition scheme
CHARACTER(LEN=6) :: CPARAMBVOC ! BVOC flux scheme
REAL, DIMENSION(:,:), POINTER :: XDEP ! final dry deposition
diff --git a/src/SURFEX/modd_ch_surfn.F90 b/src/SURFEX/modd_ch_surfn.F90
index 3a3793967653388db4694c3c7ce09b6a8e61b773..3645c3ca7f2a3766cb23b4fe51231ca53e73b4b8 100644
--- a/src/SURFEX/modd_ch_surfn.F90
+++ b/src/SURFEX/modd_ch_surfn.F90
@@ -33,6 +33,8 @@
! ------------
!
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -57,7 +59,7 @@ TYPE CH_SURF_t
CHARACTER(LEN=6), DIMENSION(:), POINTER :: CDSTNAMES ! NAME OF DUST SPECIES
CHARACTER(LEN=6), DIMENSION(:), POINTER :: CSLTNAMES ! NAME OF SEA SALT SPECIES
! SPECIES (FOR DIAG ONLY)
- CHARACTER(LEN=28) :: CCHEM_SURF_FILE ! name of general
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CCHEM_SURF_FILE ! name of general
! (chemical) purpose
! ASCII input file
REAL, DIMENSION(:), POINTER :: XCONVERSION ! emission unit
diff --git a/src/SURFEX/modd_ch_tebn.F90 b/src/SURFEX/modd_ch_tebn.F90
index 516651103d3e4756334a04a2374bf9eba9882b49..8f0590b87fdacc8711d9ddf350f5f894d62e6eee 100644
--- a/src/SURFEX/modd_ch_tebn.F90
+++ b/src/SURFEX/modd_ch_tebn.F90
@@ -34,6 +34,8 @@ USE MODD_SV_n, ONLY : SV_t, SV_INIT
USE MODD_SLT_n, ONLY : SLT_t, SLT_INIT
USE MODD_DST_n, ONLY : DST_t, DST_INIT
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -41,7 +43,7 @@ IMPLICIT NONE
TYPE CH_TEB_t
!
- CHARACTER(LEN=28) :: CCHEM_SURF_FILE ! name of general (chemical) purpose ASCII input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CCHEM_SURF_FILE ! name of general (chemical) purpose ASCII input file
CHARACTER(LEN=6) :: CCH_DRY_DEP ! deposition scheme
REAL, DIMENSION(:,:), POINTER :: XDEP ! final dry deposition
! velocity for nature
diff --git a/src/SURFEX/modd_grid_grib.F90 b/src/SURFEX/modd_grid_grib.F90
index 412369ae7259bb8e2b533bc8677922a9ef08b9b2..d3bfacb08a98ecb805aebf7ddf5a75624276f2e5 100644
--- a/src/SURFEX/modd_grid_grib.F90
+++ b/src/SURFEX/modd_grid_grib.F90
@@ -32,6 +32,7 @@
! ------------
!
USE GRIB_API, ONLY : kindOfInt
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
IMPLICIT NONE
!
@@ -40,7 +41,7 @@ INTEGER :: NGRIB_VERSION ! GRIB-API version (1 or 2)
!
CHARACTER(LEN=6) :: CINMODEL
- CHARACTER(LEN=28) :: CGRIB_FILE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CGRIB_FILE
INTEGER(KIND=kindOfInt) :: NIDX
!
END MODULE MODD_GRID_GRIB
diff --git a/src/SURFEX/modd_io_surf_asc.F90 b/src/SURFEX/modd_io_surf_asc.F90
index 81207ed32f2a4bf7e04068b26d95cb7fc0057e4f..b29d19c2f98feb8df766bcb009df4b52a41c12ce 100644
--- a/src/SURFEX/modd_io_surf_asc.F90
+++ b/src/SURFEX/modd_io_surf_asc.F90
@@ -30,12 +30,15 @@
!
!* 0. DECLARATIONS
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
- CHARACTER(LEN=28),SAVE :: CFILE = 'SURFIN.txt'
- CHARACTER(LEN=28),SAVE :: CFILEIN ='SURFIN.txt' ! Name of the input
- CHARACTER(LEN=28),SAVE :: CFILEIN_SAVE ='SURFIN.txt' ! Name of the input
- CHARACTER(LEN=28),SAVE :: CFILEOUT='SURFOUT.txt'! Name of the output
- CHARACTER(LEN=28),SAVE :: CFILEPGD ='PGD.txt' ! Name of the pgd file
+!
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILE = 'SURFIN.txt'
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEIN = 'SURFIN.txt' ! Name of the input
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEIN_SAVE = 'SURFIN.txt' ! Name of the input
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEOUT = 'SURFOUT.txt'! Name of the output
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEPGD = 'PGD.txt' ! Name of the pgd file
INTEGER :: NUNIT ! logical unit of surface file
INTEGER :: NLUOUT ! logical unit of output file
INTEGER, DIMENSION(:), POINTER :: NMASK=>NULL() ! 1D mask to read only interesting
diff --git a/src/SURFEX/modd_io_surf_fa.F90 b/src/SURFEX/modd_io_surf_fa.F90
index 707fa28fced7e394acfa2224a42b6d94f7ecc854..f5f093871b02e150c44b80d4cb8160042d5bea17 100644
--- a/src/SURFEX/modd_io_surf_fa.F90
+++ b/src/SURFEX/modd_io_surf_fa.F90
@@ -29,14 +29,16 @@
!
!* 0. DECLARATIONS
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
CHARACTER(LEN=6), SAVE :: CDNOMC ='header' ! Name of the header
-CHARACTER(LEN=28),SAVE :: CFILE_FA ='SURFIN.fa' ! Name of the input
-CHARACTER(LEN=28),SAVE :: CFILEIN_FA ='SURFIN.fa' ! Name of the input
-CHARACTER(LEN=28),SAVE :: CFILEIN_FA_SAVE ='SURFIN.fa' ! Name of the input
-CHARACTER(LEN=28),SAVE :: CFILEOUT_FA ='SURFOUT.fa' ! Name of the input
-CHARACTER(LEN=28),SAVE :: CFILEPGD_FA ='PGD.fa' ! Name of the pgd file
+CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILE_FA = 'SURFIN.fa' ! Name of the input
+CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEIN_FA = 'SURFIN.fa' ! Name of the input
+CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEIN_FA_SAVE = 'SURFIN.fa' ! Name of the input
+CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEOUT_FA = 'SURFOUT.fa' ! Name of the input
+CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEPGD_FA = 'PGD.fa' ! Name of the pgd file
CHARACTER(LEN=4), SAVE :: CPREFIX1D ='SFX.' ! Prefix name in fa file
CHARACTER(LEN=1), SAVE :: CPREFIX2D ='X' ! Prefix name in fa file
!
diff --git a/src/SURFEX/modd_io_surf_lfi.F90 b/src/SURFEX/modd_io_surf_lfi.F90
index 14ff2df4ae71e3e3716c720ff08427ab91959a70..62f11871f7bec9e7a66a7a6f9fa975bbd21a86d2 100644
--- a/src/SURFEX/modd_io_surf_lfi.F90
+++ b/src/SURFEX/modd_io_surf_lfi.F90
@@ -26,18 +26,18 @@
!! MODIFICATIONS
!! -------------
!!
-USE MODD_SURF_PAR, ONLY : NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, NUNDEF
!
!* 0. DECLARATIONS
!
IMPLICIT NONE
- CHARACTER(LEN=28),SAVE :: CLUOUT_LFI ! Name of the listing
- CHARACTER(LEN=28),SAVE :: CFILE_LFI ! Name of the current file
- CHARACTER(LEN=28),SAVE :: CFILEIN_LFI ! Name of the input
- CHARACTER(LEN=28),SAVE :: CFILEIN_LFI_SAVE ! Name of the input
- CHARACTER(LEN=28),SAVE :: CFILEOUT_LFI ! Name of the output
- CHARACTER(LEN=28),SAVE :: CFILEDIAG_LFI ! Name of the output
- CHARACTER(LEN=28),SAVE :: CFILEPGD_LFI ! Name of the pgd file
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CLUOUT_LFI ! Name of the listing
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILE_LFI ! Name of the current file
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEIN_LFI ! Name of the input
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEIN_LFI_SAVE ! Name of the input
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEOUT_LFI ! Name of the output
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEDIAG_LFI ! Name of the output
+ CHARACTER(LEN=NFILENAMELGTMAX),SAVE :: CFILEPGD_LFI ! Name of the pgd file
INTEGER :: NUNIT_LFI ! logical unit of surface file (LFI part)
INTEGER :: NLUOUT ! logical unit of output file
!
diff --git a/src/SURFEX/modd_prep_flake.F90 b/src/SURFEX/modd_prep_flake.F90
index 40209c381d806af5fee312b259ac9715fe8a445f..d619726e3a9cef6b078429b676af292f31bbcfbf 100644
--- a/src/SURFEX/modd_prep_flake.F90
+++ b/src/SURFEX/modd_prep_flake.F90
@@ -31,15 +31,17 @@ MODULE MODD_PREP_FLAKE
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
SAVE
!--------------------------------------------------------------------------
!
- CHARACTER(LEN=28) :: CFILE_FLAKE ! input file name
- CHARACTER(LEN=6) :: CTYPE ! input file type
- CHARACTER(LEN=28) :: CFILEPGD_FLAKE ! input file name
- CHARACTER(LEN=6) :: CTYPEPGD ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_FLAKE ! input file name
+ CHARACTER(LEN=6) :: CTYPE ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_FLAKE ! input file name
+ CHARACTER(LEN=6) :: CTYPEPGD ! input file type
!
REAL :: XTS_UNIF ! uniform prescribed
! surface temperature for inland water
diff --git a/src/SURFEX/modd_prep_isba.F90 b/src/SURFEX/modd_prep_isba.F90
index 67f9955162ce17b3e69c34e09af1284beed0d7af..da692b2e0309522e59e8d094261d696292fbe1ff 100644
--- a/src/SURFEX/modd_prep_isba.F90
+++ b/src/SURFEX/modd_prep_isba.F90
@@ -33,29 +33,31 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
SAVE
!--------------------------------------------------------------------------
!
- CHARACTER(LEN=28) :: CFILE_ISBA ! input file name
- CHARACTER(LEN=6) :: CTYPE ! input file type
- CHARACTER(LEN=28) :: CFILEPGD_ISBA ! input file name
- CHARACTER(LEN=6) :: CTYPEPGD ! input file type
- CHARACTER(LEN=28) :: CFILE_SNOW ! input file name for Snow
- CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow
- CHARACTER(LEN=28) :: CFILEPGD_SNOW ! input file name for Snow
- CHARACTER(LEN=6) :: CTYPEPGD_SNOW ! input file type for Snow
- CHARACTER(LEN=28) :: CFILE_HUG ! input file name for Wg, Wgi
- CHARACTER(LEN=6) :: CTYPE_HUG ! input file type for Wg, Wgi
- CHARACTER(LEN=28) :: CFILE_TG ! input file name for Tg
- CHARACTER(LEN=6) :: CTYPE_TG ! input file type for Tg
- CHARACTER(LEN=28) :: CFILE_HUG_SURF ! input file name for HUG_SURF
- CHARACTER(LEN=28) :: CFILE_HUG_ROOT ! input file name for HUG_ROOT
- CHARACTER(LEN=28) :: CFILE_HUG_DEEP ! input file name for HUG_DEEP
- CHARACTER(LEN=28) :: CFILE_TG_SURF ! input file name for TG_SURF
- CHARACTER(LEN=28) :: CFILE_TG_ROOT ! input file name for TG_ROOT
- CHARACTER(LEN=28) :: CFILE_TG_DEEP ! input file name for TG_DEEP
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_ISBA ! input file name
+ CHARACTER(LEN=6) :: CTYPE ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_ISBA ! input file name
+ CHARACTER(LEN=6) :: CTYPEPGD ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_SNOW ! input file name for Snow
+ CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_SNOW ! input file name for Snow
+ CHARACTER(LEN=6) :: CTYPEPGD_SNOW ! input file type for Snow
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG ! input file name for Wg, Wgi
+ CHARACTER(LEN=6) :: CTYPE_HUG ! input file type for Wg, Wgi
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG ! input file name for Tg
+ CHARACTER(LEN=6) :: CTYPE_TG ! input file type for Tg
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_SURF ! input file name for HUG_SURF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_ROOT ! input file name for HUG_ROOT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_DEEP ! input file name for HUG_DEEP
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_SURF ! input file name for TG_SURF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_ROOT ! input file name for TG_ROOT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_DEEP ! input file name for TG_DEEP
!
REAL :: XHUG_SURF ! surface relative soil humidity
REAL :: XHUG_ROOT ! root layer relative soil humidity
diff --git a/src/SURFEX/modd_prep_seaflux.F90 b/src/SURFEX/modd_prep_seaflux.F90
index 9f0a29ccecece64a0727cd04c3dd4e9257ca5a8d..91016feac1d12cd9a820b6b60025d2a317188e68 100644
--- a/src/SURFEX/modd_prep_seaflux.F90
+++ b/src/SURFEX/modd_prep_seaflux.F90
@@ -34,17 +34,19 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
SAVE
!--------------------------------------------------------------------------
!
- CHARACTER(LEN=28) :: CFILE_SEAFLX ! input file name
- CHARACTER(LEN=6) :: CTYPE_SEAFLX ! input file type
- CHARACTER(LEN=28) :: CFILEWAVE_SEAFLX ! input file name wave parameters
- CHARACTER(LEN=6) :: CTYPEWAVE ! file type for wave parameters
- CHARACTER(LEN=28) :: CFILEPGD_SEAFLX ! input file name
- CHARACTER(LEN=6) :: CTYPEPGD ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_SEAFLX ! input file name
+ CHARACTER(LEN=6) :: CTYPE_SEAFLX ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEWAVE_SEAFLX ! input file name wave parameters
+ CHARACTER(LEN=6) :: CTYPEWAVE ! file type for wave parameters
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_SEAFLX ! input file name
+ CHARACTER(LEN=6) :: CTYPEPGD ! input file type
!
REAL :: XSST_UNIF ! uniform prescribed SST
REAL :: XSSS_UNIF ! uniform prescribed SSS
diff --git a/src/SURFEX/modd_prep_teb.F90 b/src/SURFEX/modd_prep_teb.F90
index 339562811bd0a9a55b2e76ffc873593ee85c7bef..0f5f7c5dfff9ed92912b75d804af23771432cbd5 100644
--- a/src/SURFEX/modd_prep_teb.F90
+++ b/src/SURFEX/modd_prep_teb.F90
@@ -31,23 +31,25 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
SAVE
!--------------------------------------------------------------------------
!
- CHARACTER(LEN=28) :: CFILE_TEB ! input file name
- CHARACTER(LEN=6) :: CTYPE ! input file type
- CHARACTER(LEN=28) :: CFILEPGD_TEB ! input file name
- CHARACTER(LEN=6) :: CTYPEPGD ! input file type
- CHARACTER(LEN=28) :: CFILE_SNOW_TEB ! input file name for Snow
- CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow
- CHARACTER(LEN=28) :: CFILEPGD_SNOW_TEB ! input file name for Snow
- CHARACTER(LEN=6) :: CTYPEPGD_SNOW ! input file type for Snow
- CHARACTER(LEN=28) :: CFILE_WS ! input file name for Ws
- CHARACTER(LEN=6) :: CTYPE_WS ! input file type for Ws
- CHARACTER(LEN=28) :: CFILE_TS ! input file name for Ts
- CHARACTER(LEN=6) :: CTYPE_TS ! input file type for Ts
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TEB ! input file name
+ CHARACTER(LEN=6) :: CTYPE ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_TEB ! input file name
+ CHARACTER(LEN=6) :: CTYPEPGD ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_SNOW_TEB ! input file name for Snow
+ CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_SNOW_TEB ! input file name for Snow
+ CHARACTER(LEN=6) :: CTYPEPGD_SNOW ! input file type for Snow
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_WS ! input file name for Ws
+ CHARACTER(LEN=6) :: CTYPE_WS ! input file type for Ws
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TS ! input file name for Ts
+ CHARACTER(LEN=6) :: CTYPE_TS ! input file type for Ts
!
REAL :: XWS_ROOF ! roof uniform water content (kg/m2)
REAL :: XWS_ROAD ! road uniform water content (kg/m2)
diff --git a/src/SURFEX/modd_prep_teb_garden.F90 b/src/SURFEX/modd_prep_teb_garden.F90
index 79cee8ac6da2e23c49a093a5ef624f925031adae..c5925db9ef3db34ae2fc56f6535c7399cbb8ec9c 100644
--- a/src/SURFEX/modd_prep_teb_garden.F90
+++ b/src/SURFEX/modd_prep_teb_garden.F90
@@ -31,29 +31,31 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
SAVE
!--------------------------------------------------------------------------
!
- CHARACTER(LEN=28) :: CFILE_GD ! input file name
- CHARACTER(LEN=6) :: CTYPE ! input file type
- CHARACTER(LEN=28) :: CFILEPGD_GD ! input file name
- CHARACTER(LEN=6) :: CTYPEPGD ! input file type
- CHARACTER(LEN=28) :: CFILE_SNOW_GD ! input file name for Snow
- CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow
- CHARACTER(LEN=28) :: CFILEPGD_SNOW_GD ! input file name for Snow
- CHARACTER(LEN=6) :: CTYPEPGD_SNOW ! input file type for Snow
- CHARACTER(LEN=28) :: CFILE_HUG_GD ! input file name for Wg, Wgi
- CHARACTER(LEN=6) :: CTYPE_HUG ! input file type for Wg, Wgi
- CHARACTER(LEN=28) :: CFILE_TG_GD ! input file name for Tg
- CHARACTER(LEN=6) :: CTYPE_TG ! input file type for Tg
- CHARACTER(LEN=28) :: CFILE_HUG_SURF_GD ! input file name for HUG_SURF
- CHARACTER(LEN=28) :: CFILE_HUG_ROOT_GD ! input file name for HUG_ROOT
- CHARACTER(LEN=28) :: CFILE_HUG_DEEP_GD ! input file name for HUG_DEEP
- CHARACTER(LEN=28) :: CFILE_TG_SURF_GD ! input file name for TG_SURF
- CHARACTER(LEN=28) :: CFILE_TG_ROOT_GD ! input file name for TG_ROOT
- CHARACTER(LEN=28) :: CFILE_TG_DEEP_GD ! input file name for TG_DEEP
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_GD ! input file name
+ CHARACTER(LEN=6) :: CTYPE ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_GD ! input file name
+ CHARACTER(LEN=6) :: CTYPEPGD ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_SNOW_GD ! input file name for Snow
+ CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_SNOW_GD ! input file name for Snow
+ CHARACTER(LEN=6) :: CTYPEPGD_SNOW ! input file type for Snow
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_GD ! input file name for Wg, Wgi
+ CHARACTER(LEN=6) :: CTYPE_HUG ! input file type for Wg, Wgi
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_GD ! input file name for Tg
+ CHARACTER(LEN=6) :: CTYPE_TG ! input file type for Tg
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_SURF_GD ! input file name for HUG_SURF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_ROOT_GD ! input file name for HUG_ROOT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_DEEP_GD ! input file name for HUG_DEEP
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_SURF_GD ! input file name for TG_SURF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_ROOT_GD ! input file name for TG_ROOT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_DEEP_GD ! input file name for TG_DEEP
!
REAL :: XHUG_SURF_GD ! surface relative soil humidity
REAL :: XHUG_ROOT_GD ! root layer relative soil humidity
diff --git a/src/SURFEX/modd_prep_teb_greenroof.F90 b/src/SURFEX/modd_prep_teb_greenroof.F90
index 0597cd022ed0b4bd7d86a639341a323baff2b029..3ad854213a760e2ad9cd60e72ddbbdbfc5f1d36e 100644
--- a/src/SURFEX/modd_prep_teb_greenroof.F90
+++ b/src/SURFEX/modd_prep_teb_greenroof.F90
@@ -31,28 +31,30 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
!--------------------------------------------------------------------------
!
- CHARACTER(LEN=28) :: CFILE_GR ! input file name
- CHARACTER(LEN=6) :: CTYPE ! input file type
- CHARACTER(LEN=28) :: CFILEPGD_GR ! input file name
- CHARACTER(LEN=6) :: CTYPEPGD ! input file type
- CHARACTER(LEN=28) :: CFILE_SNOW_GR ! input file name for Snow
- CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow
- CHARACTER(LEN=28) :: CFILEPGD_SNOW_GR ! input file name for Snow
- CHARACTER(LEN=6) :: CTYPEPGD_SNOW ! input file type for Snow
- CHARACTER(LEN=28) :: CFILE_HUG_GR ! input file name for Wg, Wgi
- CHARACTER(LEN=6) :: CTYPE_HUG ! input file type for Wg, Wgi
- CHARACTER(LEN=28) :: CFILE_TG_GR ! input file name for Tg
- CHARACTER(LEN=6) :: CTYPE_TG ! input file type for Tg
- CHARACTER(LEN=28) :: CFILE_HUG_SURF_GR ! input file name for HUG_SURF
- CHARACTER(LEN=28) :: CFILE_HUG_ROOT_GR ! input file name for HUG_ROOT
- CHARACTER(LEN=28) :: CFILE_HUG_DEEP_GR ! input file name for HUG_DEEP
- CHARACTER(LEN=28) :: CFILE_TG_SURF_GR ! input file name for TG_SURF
- CHARACTER(LEN=28) :: CFILE_TG_ROOT_GR ! input file name for TG_ROOT
- CHARACTER(LEN=28) :: CFILE_TG_DEEP_GR ! input file name for TG_DEEP
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_GR ! input file name
+ CHARACTER(LEN=6) :: CTYPE ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_GR ! input file name
+ CHARACTER(LEN=6) :: CTYPEPGD ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_SNOW_GR ! input file name for Snow
+ CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_SNOW_GR ! input file name for Snow
+ CHARACTER(LEN=6) :: CTYPEPGD_SNOW ! input file type for Snow
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_GR ! input file name for Wg, Wgi
+ CHARACTER(LEN=6) :: CTYPE_HUG ! input file type for Wg, Wgi
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_GR ! input file name for Tg
+ CHARACTER(LEN=6) :: CTYPE_TG ! input file type for Tg
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_SURF_GR ! input file name for HUG_SURF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_ROOT_GR ! input file name for HUG_ROOT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_HUG_DEEP_GR ! input file name for HUG_DEEP
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_SURF_GR ! input file name for TG_SURF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_ROOT_GR ! input file name for TG_ROOT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_TG_DEEP_GR ! input file name for TG_DEEP
!
REAL :: XHUG_SURF_GR ! surface relative soil humidity
REAL :: XHUG_ROOT_GR ! root layer relative soil humidity
diff --git a/src/SURFEX/modd_prep_watflux.F90 b/src/SURFEX/modd_prep_watflux.F90
index e2d798a2f4024121aed2a6d5d0ee777e81eaf516..222711ef935ef2624f18b34d35e66347916eee54 100644
--- a/src/SURFEX/modd_prep_watflux.F90
+++ b/src/SURFEX/modd_prep_watflux.F90
@@ -31,15 +31,17 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
SAVE
!--------------------------------------------------------------------------
!
- CHARACTER(LEN=28) :: CFILE_WATFLX ! input file name
- CHARACTER(LEN=6) :: CTYPE ! input file type
- CHARACTER(LEN=28) :: CFILEPGD_WATFLX ! input file name
- CHARACTER(LEN=6) :: CTYPEPGD ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_WATFLX ! input file name
+ CHARACTER(LEN=6) :: CTYPE ! input file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD_WATFLX ! input file name
+ CHARACTER(LEN=6) :: CTYPEPGD ! input file type
!
REAL :: XTS_WATER_UNIF ! uniform prescribed
! surface temperature for inland water
diff --git a/src/SURFEX/modd_surf_par.F90 b/src/SURFEX/modd_surf_par.F90
index 2db2c81dd45cca54ded9b649589af34199c7da59..a95231d06b1dff58672f47ed13fc045d3d556881 100644
--- a/src/SURFEX/modd_surf_par.F90
+++ b/src/SURFEX/modd_surf_par.F90
@@ -34,7 +34,8 @@ MODULE MODD_SURF_PAR
! ------------
!
#ifdef SFX_MNH
-USE MODD_PRECISION, ONLY: MNHREAL
+USE MODD_PARAMETERS, ONLY: NFILENAMELGTMAX_MNH => NFILENAMELGTMAX
+USE MODD_PRECISION, ONLY: MNHREAL
#endif
!
IMPLICIT NONE
@@ -67,6 +68,12 @@ INTEGER, PARAMETER :: LEN_HREC = MNH_LEN_HREC ! Length of record variable writte
#else
INTEGER, PARAMETER :: LEN_HREC = 12
#endif
+!
+#ifdef SFX_MNH
+INTEGER, PARAMETER :: NFILENAMELGTMAX = NFILENAMELGTMAX_MNH
+#else
+INTEGER, PARAMETER :: NFILENAMELGTMAX = 28
+#endif
!-----------------------------------------------------------------------------------------------------
!
END MODULE MODD_SURF_PAR
diff --git a/src/SURFEX/mode_ekf.F90 b/src/SURFEX/mode_ekf.F90
index 62bc21b3b5050c6b12111b309729baf181262052..4bd5d994246c47db27d781b5cfa5151345ada51e 100644
--- a/src/SURFEX/mode_ekf.F90
+++ b/src/SURFEX/mode_ekf.F90
@@ -238,6 +238,8 @@ END SUBROUTINE COFSWI
!
SUBROUTINE SET_FILEIN(HFILE)
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODN_IO_OFFLINE, ONLY : CSURF_FILETYPE
!
#ifdef SFX_NC
@@ -257,8 +259,8 @@ USE MODI_ABOR1_SFX
!
IMPLICIT NONE
!
- CHARACTER(LEN=*), INTENT(IN) :: HFILE
- CHARACTER(LEN=28) :: YFILEIN
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEIN
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
IF (LHOOK) CALL DR_HOOK('MODE_EKF:SET_FILEIN',0,ZHOOK_HANDLE)
diff --git a/src/SURFEX/mode_read_cdf.F90 b/src/SURFEX/mode_read_cdf.F90
index eeb2486742dd8bcd218e48313b5977dc1dd725e4..5a758991916c854d9622616d47469cdb62856319 100644
--- a/src/SURFEX/mode_read_cdf.F90
+++ b/src/SURFEX/mode_read_cdf.F90
@@ -233,9 +233,11 @@ END SUBROUTINE GET2DCDF
!
USE NETCDF
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
REAL, DIMENSION(:), INTENT(OUT) :: PLON,PLAT ! Longitudes/latitudes innetcdf file
REAL, DIMENSION(:), INTENT(OUT) :: PVAL ! value to get
@@ -432,9 +434,11 @@ END SUBROUTINE READ_LATLONVAL_CDF
!
USE NETCDF
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
INTEGER(kind=IDCDF_KIND), INTENT(OUT):: KDIM ! value of dimension to get
!
diff --git a/src/SURFEX/mode_read_extern.F90 b/src/SURFEX/mode_read_extern.F90
index 7bf8dc37031905194f463f6665c1fdfbc3fbac63..8ac2eed6df7b9a29fe1e09d8191011b16b2965ef 100644
--- a/src/SURFEX/mode_read_extern.F90
+++ b/src/SURFEX/mode_read_extern.F90
@@ -41,7 +41,7 @@ USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_ISBA_OPTIONS_n, ONLY : ISBA_OPTIONS_t
-USE MODD_SURF_PAR, ONLY : LEN_HREC
+USE MODD_SURF_PAR, ONLY : LEN_HREC, NFILENAMELGTMAX
!
USE MODD_SURFEX_MPI, ONLY : NRANK,NPIO
!
@@ -71,10 +71,10 @@ TYPE(DATA_COVER_t), INTENT(INOUT) :: DTCO
TYPE(ISBA_OPTIONS_t), INTENT(INOUT) :: IO
!
INTEGER,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! type of input file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! type of input file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! type of input file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! type of input file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
CHARACTER(LEN=3), INTENT(IN) :: HISBA ! type of ISBA soil scheme
CHARACTER(LEN=3), INTENT(IN) :: HNAT ! type of surface (nature, gardens)
@@ -443,7 +443,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_ISBA_OPTIONS_n, ONLY : ISBA_OPTIONS_t
-USE MODD_SURF_PAR, ONLY : LEN_HREC
+USE MODD_SURF_PAR, ONLY : LEN_HREC, NFILENAMELGTMAX
!
USE MODD_ISBA_PAR, ONLY : XOPTIMGRID
USE MODD_COUPLING_TOPD, ONLY : LPERT_PARAM
@@ -466,10 +466,10 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
TYPE(ISBA_OPTIONS_t), INTENT(INOUT) :: IO
!
INTEGER,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
-CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
-CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
-CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
-CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
INTEGER, INTENT(IN) :: KNI ! number of points
CHARACTER(LEN=7), INTENT(IN) :: HFIELD ! field name
diff --git a/src/SURFEX/mode_read_netcdf_mercator.F90 b/src/SURFEX/mode_read_netcdf_mercator.F90
index 4ec313b8742304e194fa2a271c26885882072f8d..ecf2d5bad18cacac00fe63d16074c4e364ebfe61 100644
--- a/src/SURFEX/mode_read_netcdf_mercator.F90
+++ b/src/SURFEX/mode_read_netcdf_mercator.F90
@@ -383,12 +383,14 @@ END SUBROUTINE GET3DCDF
SUBROUTINE READ_DIM_CDF(HFILENAME,HNCVARNAME,KDIM)
! ####################
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE NETCDF
!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
- CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
INTEGER(kind=IDCDF_KIND), INTENT(OUT):: KDIM ! value of dimension to get
!
integer(kind=IDCDF_KIND) :: status
@@ -525,8 +527,8 @@ IMPLICIT NONE
INCLUDE "mpif.h"
#endif
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
- CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
!
integer(kind=IDCDF_KIND) :: status
integer(kind=IDCDF_KIND) :: kcdf_id
@@ -764,12 +766,14 @@ END SUBROUTINE PREP_NETCDF_GRID
SUBROUTINE READ_Z1D_CDF(HFILENAME,HNCVARNAME,PVAL)
! ####################
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE NETCDF
!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
- CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
REAL, DIMENSION(:), INTENT(OUT) :: PVAL ! value to get
!
integer(kind=IDCDF_KIND) :: status
@@ -882,12 +886,14 @@ END SUBROUTINE READ_Z1D_CDF
SUBROUTINE READ_LATLONVAL_CDF(HFILENAME,HNCVARNAME,PLON,PLAT,PVAL)
! ####################
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE NETCDF
!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
- CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
REAL, DIMENSION(:), INTENT(OUT) :: PLON,PLAT ! Longitudes/latitudes in netcdf file
REAL, DIMENSION(:), INTENT(OUT) :: PVAL ! value to get
!
@@ -1082,12 +1088,14 @@ END SUBROUTINE READ_LATLONVAL_CDF
SUBROUTINE READ_LATLONDEPVAL_CDF(HFILENAME,HNCVARNAME,PLON,PLAT,PDEP,PVAL)
! ####################
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE NETCDF
!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
- CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
REAL, DIMENSION(:), INTENT(OUT) :: PLON,PLAT ! Longitudes/latitudes in netcdf file
REAL, DIMENSION(:), INTENT(OUT) :: PDEP ! depth in netcdf file
REAL, DIMENSION(:,:), INTENT(OUT) :: PVAL ! value to get
@@ -1348,7 +1356,7 @@ END SUBROUTINE READ_LATLONDEPVAL_CDF
! ####################
!
USE MODD_GRID_LATLONREGUL, ONLY : NINDEPTH,NILENGTH
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_CSTS, ONLY : XTT
USE MODD_PREP, ONLY : CINTERP_TYPE
!
@@ -1356,8 +1364,8 @@ USE NETCDF
!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
- CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
REAL, POINTER,DIMENSION(:) :: PFIELD ! value to get
!
REAL,DIMENSION(:), ALLOCATABLE :: ZLATI
@@ -1428,13 +1436,14 @@ END SUBROUTINE READ_NETCDF_SST
!
USE MODD_GRID_LATLONREGUL, ONLY : NINLAT,NINLON,NINDEPTH,NILENGTH
USE MODD_PREP, ONLY : CINTERP_TYPE
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE NETCDF
!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
- CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
REAL, POINTER, DIMENSION(:) :: PFIELD ! value to get
!
REAL,DIMENSION(:), ALLOCATABLE :: ZLATI
@@ -1484,11 +1493,12 @@ END SUBROUTINE READ_NETCDF_ZS_SEA
!
USE MODD_GRID_LATLONREGUL, ONLY : NINLAT,NINLON,NINDEPTH,NILENGTH
USE MODD_PREP, ONLY : CINTERP_TYPE
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
IMPLICIT NONE
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
- CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of variable to read in netcdf file
REAL, POINTER, DIMENSION(:) :: PFIELD ! value to get
!
REAL,DIMENSION(:), ALLOCATABLE :: ZLATI
diff --git a/src/SURFEX/modn_io_offline.F90 b/src/SURFEX/modn_io_offline.F90
index 72e35dbab84d398dfa31e33a5fdb3165ee2b901a..e63db961f25326bf25ea19fbc6889997e212ce5c 100644
--- a/src/SURFEX/modn_io_offline.F90
+++ b/src/SURFEX/modn_io_offline.F90
@@ -42,6 +42,8 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
!* Types of files
@@ -61,10 +63,10 @@ IMPLICIT NONE
!* Names of files
! --------------
!
- CHARACTER(LEN=28):: CPGDFILE ='PGD' ! name of the PGD file
- CHARACTER(LEN=28):: CPREPFILE ='PREP' ! name of the INITIAL file
- CHARACTER(LEN=28):: CSURFFILE ='SURFOUT' ! name of the final output CSURFEX file
- CHARACTER(LEN=28):: CNAMELIST ='OPTIONS.nam' ! name of namelist file
+ CHARACTER(LEN=NFILENAMELGTMAX):: CPGDFILE ='PGD' ! name of the PGD file
+ CHARACTER(LEN=NFILENAMELGTMAX):: CPREPFILE ='PREP' ! name of the INITIAL file
+ CHARACTER(LEN=NFILENAMELGTMAX):: CSURFFILE ='SURFOUT' ! name of the final output CSURFEX file
+ CHARACTER(LEN=NFILENAMELGTMAX):: CNAMELIST ='OPTIONS.nam' ! name of namelist file
!
!
!* General flags defining output options
diff --git a/src/SURFEX/modn_isban.F90 b/src/SURFEX/modn_isban.F90
index c85599136095340eb2fd898193724d1fd9b77470..b7c0284d3e41ff07ccc91039b701553c08516347 100644
--- a/src/SURFEX/modn_isban.F90
+++ b/src/SURFEX/modn_isban.F90
@@ -43,7 +43,7 @@ MODULE MODN_ISBA_n
! ------------
!
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE YOMHOOK , ONLY : LHOOK, DR_HOOK
USE PARKIND1 , ONLY : JPRB
!
@@ -150,7 +150,7 @@ CHARACTER(3) :: CSNOWHOLD
CHARACTER(3) :: CSNOWCOMP
CHARACTER(3) :: CSNOWZREF
CHARACTER(LEN=6) :: CCH_DRY_DEP, CPARAMBVOC=''
-CHARACTER(LEN=28) :: CCHEM_SURF_FILE
+CHARACTER(LEN=NFILENAMELGTMAX) :: CCHEM_SURF_FILE
!
! New options Spoil and snow nduging
!
diff --git a/src/SURFEX/modn_pgd_grid.F90 b/src/SURFEX/modn_pgd_grid.F90
index 92da1f3e07a05190105b44eb8f24520bbbc5f399..f678847c10b814ee030c7eceff06200f5d1b38c1 100644
--- a/src/SURFEX/modn_pgd_grid.F90
+++ b/src/SURFEX/modn_pgd_grid.F90
@@ -31,13 +31,15 @@
! ------------
!
USE MODD_PGD_GRID, ONLY : CGRID
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
!
USE MODD_POINT_OVERLAY, ONLY : NOVMX
!
IMPLICIT NONE
!
- CHARACTER(LEN=28):: YINIFILE ! name of input file
- CHARACTER(LEN=6) :: YINIFILETYPE! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YINIFILE ! name of input file
+ CHARACTER(LEN=6) :: YINIFILETYPE! type of input file
!
!
NAMELIST/NAM_PGD_GRID/CGRID,NOVMX,YINIFILE,YINIFILETYPE
diff --git a/src/SURFEX/modn_prep_surf_atm.F90 b/src/SURFEX/modn_prep_surf_atm.F90
index fc75c3327db63cdc10f98f7f31d7310619a884fa..6c2bee4f4d64e0191d609ae8d4633a2d317e5dd6 100644
--- a/src/SURFEX/modn_prep_surf_atm.F90
+++ b/src/SURFEX/modn_prep_surf_atm.F90
@@ -31,13 +31,14 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
IMPLICIT NONE
!
- CHARACTER(LEN=28) :: CFILE ! file name
- CHARACTER(LEN=6) :: CFILETYPE ! file type
- CHARACTER(LEN=28) :: CFILEPGD ! file name
- CHARACTER(LEN=6) :: CFILEPGDTYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE ! file name
+ CHARACTER(LEN=6) :: CFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFILEPGD ! file name
+ CHARACTER(LEN=6) :: CFILEPGDTYPE ! file type
INTEGER :: NHALO_PREP ! HALO for nearest point extrapolation
INTEGER :: NYEAR ! YEAR for surface
INTEGER :: NMONTH ! MONTH for surface
diff --git a/src/SURFEX/modn_surf_atmn.F90 b/src/SURFEX/modn_surf_atmn.F90
index ff0a2b7d4099c447ba1e6091fe598c6c76e01c68..1bebe1201373cb5fd019dc55f84fed82683e0a17 100644
--- a/src/SURFEX/modn_surf_atmn.F90
+++ b/src/SURFEX/modn_surf_atmn.F90
@@ -38,14 +38,14 @@
!
!
-USE MODD_SURF_PAR, ONLY : LEN_HREC
+USE MODD_SURF_PAR, ONLY : LEN_HREC, NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
IMPLICIT NONE
!
-CHARACTER(LEN=28), SAVE :: CCHEM_SURF_FILE
+CHARACTER(LEN=NFILENAMELGTMAX), SAVE :: CCHEM_SURF_FILE
LOGICAL, SAVE :: LCH_EMIS, LCH_DMSEMIS, LCH_SURF_EMIS
LOGICAL :: LFRAC
REAL :: XDIAG_TSTEP
diff --git a/src/SURFEX/modn_teb_vegn.F90 b/src/SURFEX/modn_teb_vegn.F90
index 53f753aac579ba1c1463e26aa9c65bf031fb4aa2..ab2771aa6071bcd44e31fdebaee856604b030ae3 100644
--- a/src/SURFEX/modn_teb_vegn.F90
+++ b/src/SURFEX/modn_teb_vegn.F90
@@ -34,6 +34,8 @@ MODULE MODN_TEB_VEG_n
! ------------
!
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -60,7 +62,7 @@ CHARACTER(LEN=3) :: CKSAT
LOGICAL :: LSOC
CHARACTER(LEN=3) :: CRAIN
CHARACTER(LEN=3) :: CHORT
-CHARACTER(LEN=28) :: CCHEM_SURF_FILE
+CHARACTER(LEN=NFILENAMELGTMAX) :: CCHEM_SURF_FILE
CHARACTER(LEN=6) :: CCH_DRY_DEP
!
REAL :: XCVHEATF
diff --git a/src/SURFEX/open_aux_io_surf.F90 b/src/SURFEX/open_aux_io_surf.F90
index 183686a75a6fd71850f43215cbd9804010aee627..fbbf3a7b3e9cd8639557f915e0a37c982d30364e 100644
--- a/src/SURFEX/open_aux_io_surf.F90
+++ b/src/SURFEX/open_aux_io_surf.F90
@@ -38,6 +38,8 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -77,10 +79,10 @@ IMPLICIT NONE
!
!
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! main program
- CHARACTER(LEN=6), INTENT(IN) :: HMASK
- CHARACTER(LEN=1), OPTIONAL, INTENT(IN) :: HDIR
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! main program
+ CHARACTER(LEN=6), INTENT(IN) :: HMASK
+ CHARACTER(LEN=1), OPTIONAL, INTENT(IN) :: HDIR
!
!* 0.2 Declarations of local variables
! -------------------------------
diff --git a/src/SURFEX/open_aux_io_surf_asc.F90 b/src/SURFEX/open_aux_io_surf_asc.F90
index 78f3513c21752bbdca98895983f34c5aca2ac118..19baf7a2a49811247b9cd18896b4a99b814f2332 100644
--- a/src/SURFEX/open_aux_io_surf_asc.F90
+++ b/src/SURFEX/open_aux_io_surf_asc.F90
@@ -42,6 +42,7 @@
!
!
USE MODD_IO_SURF_ASC,ONLY:NUNIT,NMASK,NLUOUT,NFULL,CMASK
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE MODI_GET_LUOUT
USE MODI_READ_SURF
USE MODI_IO_BUFF_CLEAN
@@ -57,7 +58,7 @@ IMPLICIT NONE
!
!
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! main program
CHARACTER(LEN=6), INTENT(IN) :: HMASK
CHARACTER(LEN=1), INTENT(IN) :: HDIR
diff --git a/src/SURFEX/open_aux_io_surf_fa.F90 b/src/SURFEX/open_aux_io_surf_fa.F90
index 9fdcd39ec0435b6d623f7c4544fcb1bad5690fda..5f39ec7c3ff275e6577f9b8bdb1d14da4f24a440 100644
--- a/src/SURFEX/open_aux_io_surf_fa.F90
+++ b/src/SURFEX/open_aux_io_surf_fa.F90
@@ -42,6 +42,7 @@
USE MODD_SURFEX_MPI, ONLY : NRANK
USE MODD_IO_SURF_FA, ONLY : NUNIT_FA,CFILEIN_FA,NMASK,NLUOUT,NFULL,CMASK, &
CDNOMC,IVERBFA
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODI_GET_LUOUT
USE MODI_READ_SURF
@@ -59,7 +60,7 @@ IMPLICIT NONE
!
!
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! main program
CHARACTER(LEN=6), INTENT(IN) :: HMASK
CHARACTER(LEN=1), INTENT(IN) :: HDIR
diff --git a/src/SURFEX/open_file.F90 b/src/SURFEX/open_file.F90
index e15977507b644c459665193979c97e281635c217..e442c05fe6593bacce1b7f12011145ef1bc33130 100644
--- a/src/SURFEX/open_file.F90
+++ b/src/SURFEX/open_file.F90
@@ -37,6 +37,8 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
#if defined(SFX_ASC) || defined(SFX_ARO) || defined(SFX_MNH) || defined(SFX_NC)
USE MODI_OPEN_FILE_ASC
#endif
@@ -76,7 +78,7 @@ INTEGER, INTENT(IN), OPTIONAL :: KRECL ! record length
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE
CHARACTER(LEN=11) :: YFORM
CHARACTER(LEN=9) :: YACTION
CHARACTER(LEN=6) :: YACCESS
diff --git a/src/SURFEX/open_file_asc.F90 b/src/SURFEX/open_file_asc.F90
index 965ebfff2fcbba82a2f5e6ae01046966ff977b7a..23e40b16f924de21e2a71c90eb5357bdd9a25da3 100644
--- a/src/SURFEX/open_file_asc.F90
+++ b/src/SURFEX/open_file_asc.F90
@@ -43,6 +43,8 @@
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODI_ABOR1_SFX
!
IMPLICIT NONE
@@ -51,7 +53,7 @@ IMPLICIT NONE
! -------------------------
!
INTEGER, INTENT(OUT):: KUNIT ! logical unit
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file to open
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file to open
CHARACTER(LEN=11), INTENT(IN) :: HFORM ! type of file
CHARACTER(LEN=9), INTENT(IN) :: HACTION ! action
CHARACTER(LEN=6), INTENT(IN) :: HACCESS ! access type
@@ -71,7 +73,7 @@ IF (LHOOK) CALL DR_HOOK('OPEN_FILE_ASC',0,ZHOOK_HANDLE)
IF(HACTION=='READ ') THEN
INQUIRE (FILE=HFILE,EXIST=LEXIST)
IF (.NOT. LEXIST ) THEN
- CALL ABOR1_SFX ('ERROR WHILE OPENING '//HFILE//' THIS FILE IS MISSING'// &
+ CALL ABOR1_SFX ('ERROR WHILE OPENING '//TRIM(HFILE)//' THIS FILE IS MISSING'// &
' IN THE RUN DIRECTORY')
ENDIF
ENDIF
@@ -93,7 +95,7 @@ END IF
IF (LHOOK) CALL DR_HOOK('OPEN_FILE_ASC',1,ZHOOK_HANDLE)
RETURN
100 CONTINUE
- CALL ABOR1_SFX('OPEN_FILE_ASC: ERROR WHEN OPENING FILE '//HFILE)
+ CALL ABOR1_SFX('OPEN_FILE_ASC: ERROR WHEN OPENING FILE '//TRIM(HFILE))
IF (LHOOK) CALL DR_HOOK('OPEN_FILE_ASC',1,ZHOOK_HANDLE)
!-------------------------------------------------------------------------------
!
diff --git a/src/SURFEX/open_file_fa.F90 b/src/SURFEX/open_file_fa.F90
index 72ac78baa1d5b17cf35c363be1ecac82c692b679..d673cfe9eb58d3648265ae82427906733f6d2d33 100644
--- a/src/SURFEX/open_file_fa.F90
+++ b/src/SURFEX/open_file_fa.F90
@@ -43,6 +43,8 @@
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODI_ABOR1_SFX
!
IMPLICIT NONE
@@ -51,7 +53,7 @@ IMPLICIT NONE
! -------------------------
!
INTEGER, INTENT(OUT):: KUNIT ! logical unit
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file to open
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file to open
CHARACTER(LEN=11), INTENT(IN) :: HFORM ! type of file
CHARACTER(LEN=9), INTENT(IN) :: HACTION ! action
CHARACTER(LEN=6), INTENT(IN) :: HACCESS ! access type
@@ -70,7 +72,7 @@ IF (LHOOK) CALL DR_HOOK('OPEN_FILE_FA',0,ZHOOK_HANDLE)
IF(HACTION=='READ ') THEN
INQUIRE (FILE=HFILE,EXIST=LEXIST)
IF (.NOT. LEXIST ) THEN
- CALL ABOR1_SFX ('ERROR WHILE OPENING '//HFILE//' THIS FILE IS MISSING'// &
+ CALL ABOR1_SFX ('ERROR WHILE OPENING '//TRIM(HFILE)//' THIS FILE IS MISSING'// &
' IN THE RUN DIRECTORY')
ENDIF
ENDIF
@@ -93,7 +95,7 @@ END IF
IF (LHOOK) CALL DR_HOOK('OPEN_FILE_FA',1,ZHOOK_HANDLE)
RETURN
100 CONTINUE
- CALL ABOR1_SFX('OPEN_FILE_FA: ERROR WHEN OPENING FILE '//HFILE)
+ CALL ABOR1_SFX('OPEN_FILE_FA: ERROR WHEN OPENING FILE '//TRIM(HFILE))
IF (LHOOK) CALL DR_HOOK('OPEN_FILE_FA',1,ZHOOK_HANDLE)
!-------------------------------------------------------------------------------
!
diff --git a/src/SURFEX/open_namelist.F90 b/src/SURFEX/open_namelist.F90
index a965cfc6a5f537a25bdf5b41911aede4b3461c61..7d2cb3d3a0083159d5b4bcac71bf7d4b9dc0a717 100644
--- a/src/SURFEX/open_namelist.F90
+++ b/src/SURFEX/open_namelist.F90
@@ -59,6 +59,7 @@ USE MODI_MNHOPEN_NAMELIST
USE MODI_AROOPEN_NAMELIST
#endif
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -69,13 +70,13 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! main program
INTEGER, INTENT(OUT) :: KLUNAM ! logical unit of namelist
- CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HFILE ! ASCII file to open
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN), OPTIONAL :: HFILE ! ASCII file to open
!
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
@@ -84,7 +85,7 @@ IF (LHOOK) CALL DR_HOOK('OPEN_NAMELIST',0,ZHOOK_HANDLE)
IF (PRESENT(HFILE)) THEN
YFILE = HFILE
ELSE
- YFILE = ' '
+ YFILE = ''
END IF
IF (HPROGRAM=='MESONH') THEN
diff --git a/src/SURFEX/open_namelist_asc.F90 b/src/SURFEX/open_namelist_asc.F90
index f949074309e4e3593e587024c1c3a5558447332b..9fb0b620b2e322b3be425d3e2d4f44c01c1a6e6a 100644
--- a/src/SURFEX/open_namelist_asc.F90
+++ b/src/SURFEX/open_namelist_asc.F90
@@ -40,6 +40,7 @@
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE MODI_ABOR1_SFX
!
IMPLICIT NONE
@@ -49,12 +50,12 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! main program
INTEGER, INTENT(OUT) :: KLUNAM ! logical unit of namelist
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! ASCII file to open
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! ASCII file to open
!
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YNAM
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAM
REAL(KIND=JPRB) :: ZHOOK_HANDLE
LOGICAL :: LLEXIST
!
@@ -75,7 +76,7 @@ INQUIRE(FILE=YNAM,EXIST=LLEXIST)
IF (LLEXIST) THEN
OPEN(KLUNAM,FILE=YNAM,ACTION='READ',FORM="FORMATTED",POSITION="REWIND")
ELSE
- CALL ABOR1_SFX ('ERROR WHILE OPENING '//YNAM//' THIS FILE IS MISSING'// &
+ CALL ABOR1_SFX ('ERROR WHILE OPENING '//TRIM(YNAM)//' THIS FILE IS MISSING'// &
' IN THE RUN DIRECTORY')
ENDIF
IF (LHOOK) CALL DR_HOOK('OPEN_NAMELIST_ASC',1,ZHOOK_HANDLE)
diff --git a/src/SURFEX/open_namelist_fa.F90 b/src/SURFEX/open_namelist_fa.F90
index 00f130a6052b220aedaf645d57ed9b85d1da72be..ab21feb1168696329437a887906a38e0881f508b 100644
--- a/src/SURFEX/open_namelist_fa.F90
+++ b/src/SURFEX/open_namelist_fa.F90
@@ -40,6 +40,8 @@
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
IMPLICIT NONE
!
!* 0.1 Declarations of arguments
@@ -47,12 +49,12 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! main program
INTEGER, INTENT(OUT) :: KLUNAM ! logical unit of namelist
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! FAII file to open
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! FAII file to open
!
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YNAM
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAM
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/pgd_bathyfield.F90 b/src/SURFEX/pgd_bathyfield.F90
index 61875ea32dac73313e10b36f7b6abce8746d71e6..014827b711ce5d3fb7bd76afce148ab4d27c7aae 100644
--- a/src/SURFEX/pgd_bathyfield.F90
+++ b/src/SURFEX/pgd_bathyfield.F90
@@ -47,7 +47,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGD_GRID, ONLY : NL
USE MODD_PGDWORK, ONLY : XALL, NSIZE_ALL, NSIZE, XSUMVAL
!
@@ -79,8 +79,8 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
! ! 'SEA' : on sea
! ! 'WAT' : on inland waters
! ! 'LAN' : on nature + on town
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! data file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! data file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! data file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! data file type
CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME! variable name to read
REAL, INTENT(IN) :: PUNIF ! prescribed uniform value for field
REAL, DIMENSION(:),INTENT(OUT):: PFIELD ! physiographic field
diff --git a/src/SURFEX/pgd_bem_par.F90 b/src/SURFEX/pgd_bem_par.F90
index 7fd62daa4e280c220bcded260be205237c04cb1b..ac0644ca42ce93087c07f6b009253e6b987cdf2f 100644
--- a/src/SURFEX/pgd_bem_par.F90
+++ b/src/SURFEX/pgd_bem_par.F90
@@ -57,7 +57,7 @@ USE MODD_DATA_BEM_n, ONLY : DATA_BEM_t
USE MODD_BEM_OPTION_n, ONLY : BEM_OPTIONS_t
USE MODE_COHERENCE_FRAC
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_CSTS, ONLY : XSURF_EPSILON
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -110,105 +110,104 @@ INTEGER, PARAMETER :: NFLOOR_MAX = 9 ! Maximum number of floor laye
INTEGER, PARAMETER :: NMASS_MAX = 9 ! Maximum number of internal mass layers
INTEGER, PARAMETER :: NBEMCOMP_MAX= 9 ! Maximum number of tiles for use/behaviour
!
-INTEGER, PARAMETER :: NFNAM = 28 ! max file name length
INTEGER, PARAMETER :: NFTYP = 6 ! max file type length
!
INTEGER :: NPAR_FLOOR_LAYER ! number of floor layers
INTEGER :: NPAR_MASS_LAYER ! number of internal mass layers
!
REAL , DIMENSION(NBEMCOMP_MAX) :: XUNIF_NATVENT ! Control variable for ventilation (0=NONE; 1=MANU; 2=AUTO)
-CHARACTER(LEN=NFNAM) :: CFNAM_NATVENT ! File name for NATVENT
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_NATVENT ! File name for NATVENT
CHARACTER(LEN=NFTYP) :: CFTYP_NATVENT ! File type for NATVENT
!
REAL :: XUNIF_RESIDENTIAL ! Residential fraction (for solar panels) [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_RESIDENTIAL ! File name for RESIDENTIAL
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_RESIDENTIAL ! File name for RESIDENTIAL
CHARACTER(LEN=NFTYP) :: CFTYP_RESIDENTIAL ! File type for RESIDENTIAL
!
-REAL , DIMENSION(NBEMCOMP_MAX) :: XUNIF_FRACOMP ! Fractions of tiles for uses/behaviour [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_FRACOMP ! File name for FRACOMP
-CHARACTER(LEN=NFTYP) :: CFTYP_FRACOMP ! File type for FRACOMP
+REAL , DIMENSION(NBEMCOMP_MAX) :: XUNIF_FRACOMP ! Fractions of tiles for uses/behaviour [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACOMP ! File name for FRACOMP
+CHARACTER(LEN=NFTYP) :: CFTYP_FRACOMP ! File type for FRACOMP
!
-REAL :: XUNIF_ISMECH ! Control variable for presence of mechanical ventilation [0=NO, 1=YES]
-CHARACTER(LEN=NFNAM) :: CFNAM_ISMECH ! File name for ISMECH
-CHARACTER(LEN=NFTYP) :: CFTYP_ISMECH ! File type for ISMECH
+REAL :: XUNIF_ISMECH ! Control variable for presence of mechanical ventilation [0=NO, 1=YES]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ISMECH ! File name for ISMECH
+CHARACTER(LEN=NFTYP) :: CFTYP_ISMECH ! File type for ISMECH
!
-REAL :: XUNIF_MECHRATE ! Air exchange rate due to mechanical ventilation [vol h-1]
-CHARACTER(LEN=NFNAM) :: CFNAM_MECHRATE ! File name for MECHRATE
-CHARACTER(LEN=NFTYP) :: CFTYP_MECHRATE ! File type for MECHRATE
+REAL :: XUNIF_MECHRATE ! Air exchange rate due to mechanical ventilation [vol h-1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_MECHRATE ! File name for MECHRATE
+CHARACTER(LEN=NFTYP) :: CFTYP_MECHRATE ! File type for MECHRATE
!
-REAL :: XUNIF_SHADEARCHI ! Control variable for presence of shading elements [0=None; 1=Adaptive; 2=Permanent]
-CHARACTER(LEN=NFNAM) :: CFNAM_SHADEARCHI ! File name for SHADEARCHI
-CHARACTER(LEN=NFTYP) :: CFTYP_SHADEARCHI ! File type for SHADEARCHI
+REAL :: XUNIF_SHADEARCHI ! Control variable for presence of shading elements [0=None; 1=Adaptive; 2=Permanent]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_SHADEARCHI ! File name for SHADEARCHI
+CHARACTER(LEN=NFTYP) :: CFTYP_SHADEARCHI ! File type for SHADEARCHI
!
! Floor parameters
!
-REAL, DIMENSION(NFLOOR_MAX) :: XUNIF_HC_FLOOR ! Floor layers heat capacity [J.K-1.m-3]
-REAL, DIMENSION(NFLOOR_MAX) :: XUNIF_TC_FLOOR ! Floor layers thermal conductivity [W.K-1.m-1]
-REAL, DIMENSION(NFLOOR_MAX) :: XUNIF_D_FLOOR ! Depth of floor layers [m]
-REAL :: XUNIF_FLOOR_HEIGHT ! Building floor height [m]
-CHARACTER(LEN=NFNAM), DIMENSION(NFLOOR_MAX) :: CFNAM_HC_FLOOR ! File name for HC_FLOOR
-CHARACTER(LEN=NFNAM), DIMENSION(NFLOOR_MAX) :: CFNAM_TC_FLOOR ! File name for TC_FLOOR
-CHARACTER(LEN=NFNAM), DIMENSION(NFLOOR_MAX) :: CFNAM_D_FLOOR ! File name for D_FLOOR
-CHARACTER(LEN=NFNAM) :: CFNAM_FLOOR_HEIGHT ! File name for FLOOR_HEIGHT
-CHARACTER(LEN=NFTYP), DIMENSION(NFLOOR_MAX) :: CFTYP_HC_FLOOR ! File type for HC_FLOOR
-CHARACTER(LEN=NFTYP), DIMENSION(NFLOOR_MAX) :: CFTYP_TC_FLOOR ! File type for TC_FLOOR
-CHARACTER(LEN=NFTYP), DIMENSION(NFLOOR_MAX) :: CFTYP_D_FLOOR ! File type for D_FLOOR
-CHARACTER(LEN=NFTYP) :: CFTYP_FLOOR_HEIGHT ! File type for FLOOR_HEIGHT
+REAL, DIMENSION(NFLOOR_MAX) :: XUNIF_HC_FLOOR ! Floor layers heat capacity [J.K-1.m-3]
+REAL, DIMENSION(NFLOOR_MAX) :: XUNIF_TC_FLOOR ! Floor layers thermal conductivity [W.K-1.m-1]
+REAL, DIMENSION(NFLOOR_MAX) :: XUNIF_D_FLOOR ! Depth of floor layers [m]
+REAL :: XUNIF_FLOOR_HEIGHT ! Building floor height [m]
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NFLOOR_MAX) :: CFNAM_HC_FLOOR ! File name for HC_FLOOR
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NFLOOR_MAX) :: CFNAM_TC_FLOOR ! File name for TC_FLOOR
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NFLOOR_MAX) :: CFNAM_D_FLOOR ! File name for D_FLOOR
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FLOOR_HEIGHT ! File name for FLOOR_HEIGHT
+CHARACTER(LEN=NFTYP), DIMENSION(NFLOOR_MAX) :: CFTYP_HC_FLOOR ! File type for HC_FLOOR
+CHARACTER(LEN=NFTYP), DIMENSION(NFLOOR_MAX) :: CFTYP_TC_FLOOR ! File type for TC_FLOOR
+CHARACTER(LEN=NFTYP), DIMENSION(NFLOOR_MAX) :: CFTYP_D_FLOOR ! File type for D_FLOOR
+CHARACTER(LEN=NFTYP) :: CFTYP_FLOOR_HEIGHT ! File type for FLOOR_HEIGHT
!
! Mass parameters
!
-REAL, DIMENSION(NMASS_MAX) :: XUNIF_HC_MASS ! Mass layers heat capacity [J.K-1.m-3]
-REAL, DIMENSION(NMASS_MAX) :: XUNIF_TC_MASS ! Mass layers thermal conductivity [W.K-1.m-1]
-REAL, DIMENSION(NMASS_MAX) :: XUNIF_D_MASS ! Depth of mass layers [m]
-CHARACTER(LEN=NFNAM), DIMENSION(NMASS_MAX) :: CFNAM_HC_MASS ! File name for HC_MASS
-CHARACTER(LEN=NFNAM), DIMENSION(NMASS_MAX) :: CFNAM_TC_MASS ! File name for TC_MASS
-CHARACTER(LEN=NFNAM), DIMENSION(NMASS_MAX) :: CFNAM_D_MASS ! File name for D_MASS
-CHARACTER(LEN=NFTYP), DIMENSION(NMASS_MAX) :: CFTYP_HC_MASS ! File type for HC_MASS
-CHARACTER(LEN=NFTYP), DIMENSION(NMASS_MAX) :: CFTYP_TC_MASS ! File type for TC_MASS
-CHARACTER(LEN=NFTYP), DIMENSION(NMASS_MAX) :: CFTYP_D_MASS ! File type for D_MASS
+REAL, DIMENSION(NMASS_MAX) :: XUNIF_HC_MASS ! Mass layers heat capacity [J.K-1.m-3]
+REAL, DIMENSION(NMASS_MAX) :: XUNIF_TC_MASS ! Mass layers thermal conductivity [W.K-1.m-1]
+REAL, DIMENSION(NMASS_MAX) :: XUNIF_D_MASS ! Depth of mass layers [m]
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NMASS_MAX) :: CFNAM_HC_MASS ! File name for HC_MASS
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NMASS_MAX) :: CFNAM_TC_MASS ! File name for TC_MASS
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NMASS_MAX) :: CFNAM_D_MASS ! File name for D_MASS
+CHARACTER(LEN=NFTYP), DIMENSION(NMASS_MAX) :: CFTYP_HC_MASS ! File type for HC_MASS
+CHARACTER(LEN=NFTYP), DIMENSION(NMASS_MAX) :: CFTYP_TC_MASS ! File type for TC_MASS
+CHARACTER(LEN=NFTYP), DIMENSION(NMASS_MAX) :: CFTYP_D_MASS ! File type for D_MASS
!
! AC systems parameters
!
-REAL :: XUNIF_F_WASTE_CAN ! Fraction of waste heat into the canyon [1]
-REAL :: XUNIF_HR_TARGET ! Relative humidity setpoint [1]
-REAL :: XUNIF_CAP_SYS_HEAT ! Capacity of the heating system [W.m-2(bld)]
-REAL :: XUNIF_CAP_SYS_RAT ! Rated capacity of the cooling system [1]
-REAL :: XUNIF_T_ADP ! Apparatus dewpoint temperature [K]
-REAL :: XUNIF_M_SYS_RAT ! Rated HVAC mass flow rate [kg s-1 m-2(bld)]
-REAL :: XUNIF_COP_RAT ! Rated COP of the cooling system [1]
-REAL :: XUNIF_COP_DCS ! Rated COP of the district cooling system [1]
-REAL :: XUNIF_F_WATER_COND ! fraction of evaporation of condensers [1]
-REAL :: XUNIF_DCS_AREA ! presence of district cooling system [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_F_WASTE_CAN ! File name for F_WASTE_CAN
-CHARACTER(LEN=NFNAM) :: CFNAM_HR_TARGET ! File name for HR_TARGET
-CHARACTER(LEN=NFNAM) :: CFNAM_CAP_SYS_HEAT ! File name for CAP_SYS_HEAT
-CHARACTER(LEN=NFNAM) :: CFNAM_CAP_SYS_RAT ! File name for CAP_SYS_RAT
-CHARACTER(LEN=NFNAM) :: CFNAM_T_ADP ! File name for T_ADP
-CHARACTER(LEN=NFNAM) :: CFNAM_M_SYS_RAT ! File name for M_SYS_RAT
-CHARACTER(LEN=NFNAM) :: CFNAM_COP_RAT ! File name for COP_RAT
-CHARACTER(LEN=NFNAM) :: CFNAM_COP_DCS ! File name for COP_DCS
-CHARACTER(LEN=NFNAM) :: CFNAM_F_WATER_COND ! File name for F_WATER_COND
-CHARACTER(LEN=NFNAM) :: CFNAM_DCS_AREA ! File name for DCS_AREA
-CHARACTER(LEN=NFTYP) :: CFTYP_F_WASTE_CAN ! File type for F_WASTE_CAN
-CHARACTER(LEN=NFTYP) :: CFTYP_HR_TARGET ! File type for HR_TARGET
-CHARACTER(LEN=NFTYP) :: CFTYP_CAP_SYS_HEAT ! File type for CAP_SYS_HEAT
-CHARACTER(LEN=NFTYP) :: CFTYP_CAP_SYS_RAT ! File type for CAP_SYS_RAT
-CHARACTER(LEN=NFTYP) :: CFTYP_T_ADP ! File type for T_ADP
-CHARACTER(LEN=NFTYP) :: CFTYP_M_SYS_RAT ! File type for M_SYS_RAT
-CHARACTER(LEN=NFTYP) :: CFTYP_COP_RAT ! File type for COP_RAT
-CHARACTER(LEN=NFTYP) :: CFTYP_COP_DCS ! File type for COP_DCS
-CHARACTER(LEN=NFTYP) :: CFTYP_F_WATER_COND ! File type for F_WATER_COND
-CHARACTER(LEN=NFTYP) :: CFTYP_DCS_AREA ! File type for DCS_AREA
-!
-REAL :: XUNIF_TDESV ! Design temperature for ventilation [K]
-REAL :: XUNIF_WIN_SW_MAX ! Threshold for shortwave radiation received by walls for shading [W.m-2(wall)]
-REAL :: XUNIF_FOPEN ! Maximum fraction of windows opened [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_TDESV ! File name for TDESV
-CHARACTER(LEN=NFNAM) :: CFNAM_WIN_SW_MAX ! File name for WIN_SW_MAX
-CHARACTER(LEN=NFNAM) :: CFNAM_FOPEN ! File name for FOPEN
-CHARACTER(LEN=NFTYP) :: CFTYP_TDESV ! File type for TDESV
-CHARACTER(LEN=NFTYP) :: CFTYP_WIN_SW_MAX ! File type for WIN_SW_MAX
-CHARACTER(LEN=NFTYP) :: CFTYP_FOPEN ! File type for FOPEN
+REAL :: XUNIF_F_WASTE_CAN ! Fraction of waste heat into the canyon [1]
+REAL :: XUNIF_HR_TARGET ! Relative humidity setpoint [1]
+REAL :: XUNIF_CAP_SYS_HEAT ! Capacity of the heating system [W.m-2(bld)]
+REAL :: XUNIF_CAP_SYS_RAT ! Rated capacity of the cooling system [1]
+REAL :: XUNIF_T_ADP ! Apparatus dewpoint temperature [K]
+REAL :: XUNIF_M_SYS_RAT ! Rated HVAC mass flow rate [kg s-1 m-2(bld)]
+REAL :: XUNIF_COP_RAT ! Rated COP of the cooling system [1]
+REAL :: XUNIF_COP_DCS ! Rated COP of the district cooling system [1]
+REAL :: XUNIF_F_WATER_COND ! fraction of evaporation of condensers [1]
+REAL :: XUNIF_DCS_AREA ! presence of district cooling system [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_F_WASTE_CAN ! File name for F_WASTE_CAN
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_HR_TARGET ! File name for HR_TARGET
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_CAP_SYS_HEAT ! File name for CAP_SYS_HEAT
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_CAP_SYS_RAT ! File name for CAP_SYS_RAT
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_T_ADP ! File name for T_ADP
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_M_SYS_RAT ! File name for M_SYS_RAT
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_COP_RAT ! File name for COP_RAT
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_COP_DCS ! File name for COP_DCS
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_F_WATER_COND ! File name for F_WATER_COND
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_DCS_AREA ! File name for DCS_AREA
+CHARACTER(LEN=NFTYP) :: CFTYP_F_WASTE_CAN ! File type for F_WASTE_CAN
+CHARACTER(LEN=NFTYP) :: CFTYP_HR_TARGET ! File type for HR_TARGET
+CHARACTER(LEN=NFTYP) :: CFTYP_CAP_SYS_HEAT ! File type for CAP_SYS_HEAT
+CHARACTER(LEN=NFTYP) :: CFTYP_CAP_SYS_RAT ! File type for CAP_SYS_RAT
+CHARACTER(LEN=NFTYP) :: CFTYP_T_ADP ! File type for T_ADP
+CHARACTER(LEN=NFTYP) :: CFTYP_M_SYS_RAT ! File type for M_SYS_RAT
+CHARACTER(LEN=NFTYP) :: CFTYP_COP_RAT ! File type for COP_RAT
+CHARACTER(LEN=NFTYP) :: CFTYP_COP_DCS ! File type for COP_DCS
+CHARACTER(LEN=NFTYP) :: CFTYP_F_WATER_COND ! File type for F_WATER_COND
+CHARACTER(LEN=NFTYP) :: CFTYP_DCS_AREA ! File type for DCS_AREA
+!
+REAL :: XUNIF_TDESV ! Design temperature for ventilation [K]
+REAL :: XUNIF_WIN_SW_MAX ! Threshold for shortwave radiation received by walls for shading [W.m-2(wall)]
+REAL :: XUNIF_FOPEN ! Maximum fraction of windows opened [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TDESV ! File name for TDESV
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_WIN_SW_MAX ! File name for WIN_SW_MAX
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FOPEN ! File name for FOPEN
+CHARACTER(LEN=NFTYP) :: CFTYP_TDESV ! File type for TDESV
+CHARACTER(LEN=NFTYP) :: CFTYP_WIN_SW_MAX ! File type for WIN_SW_MAX
+CHARACTER(LEN=NFTYP) :: CFTYP_FOPEN ! File type for FOPEN
!
REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_FVSUM ! Fraction of households opening windows during warm conditions [1]
REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_FVVAC ! Fraction of households opening windows when the building is vacant [1]
@@ -216,18 +215,18 @@ REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_FVNIG ! Fraction of households opening wi
REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_FSSUM ! Fraction of households closing shading elements during warm conditions [1]
REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_FSVAC ! Fraction of households closing shading elements when the building is vacant [1]
REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_FSNIG ! Fraction of households closing shading elements during the night [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_FVSUM ! File name for FVSUM
-CHARACTER(LEN=NFNAM) :: CFNAM_FVVAC ! File name for FVVAC
-CHARACTER(LEN=NFNAM) :: CFNAM_FVNIG ! File name for FVNIG
-CHARACTER(LEN=NFNAM) :: CFNAM_FSSUM ! File name for FSSUM
-CHARACTER(LEN=NFNAM) :: CFNAM_FSVAC ! File name for FSVAC
-CHARACTER(LEN=NFNAM) :: CFNAM_FSNIG ! File name for FSNIG
-CHARACTER(LEN=NFTYP) :: CFTYP_FVSUM ! File type for FVSUM
-CHARACTER(LEN=NFTYP) :: CFTYP_FVVAC ! File type for FVVAC
-CHARACTER(LEN=NFTYP) :: CFTYP_FVNIG ! File type for FVNIG
-CHARACTER(LEN=NFTYP) :: CFTYP_FSSUM ! File type for FSSUM
-CHARACTER(LEN=NFTYP) :: CFTYP_FSVAC ! File type for FSVAC
-CHARACTER(LEN=NFTYP) :: CFTYP_FSNIG ! File type for FSNIG
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FVSUM ! File name for FVSUM
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FVVAC ! File name for FVVAC
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FVNIG ! File name for FVNIG
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FSSUM ! File name for FSSUM
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FSVAC ! File name for FSVAC
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FSNIG ! File name for FSNIG
+CHARACTER(LEN=NFTYP) :: CFTYP_FVSUM ! File type for FVSUM
+CHARACTER(LEN=NFTYP) :: CFTYP_FVVAC ! File type for FVVAC
+CHARACTER(LEN=NFTYP) :: CFTYP_FVNIG ! File type for FVNIG
+CHARACTER(LEN=NFTYP) :: CFTYP_FSSUM ! File type for FSSUM
+CHARACTER(LEN=NFTYP) :: CFTYP_FSVAC ! File type for FSVAC
+CHARACTER(LEN=NFTYP) :: CFTYP_FSNIG ! File type for FSNIG
!
REAL, DIMENSION(:,:), ALLOCATABLE :: XUNIF_DAYWBEG_SCHED ! Day of week for beginning of schedule (1=Monday)
REAL, DIMENSION(:,:), ALLOCATABLE :: XUNIF_HOURBEG_SCHED ! Hour of day for beginning of schedule
@@ -235,12 +234,12 @@ REAL, DIMENSION(:,:), ALLOCATABLE :: XUNIF_PROBOCC ! Probability of buildi
REAL, DIMENSION(:,:), ALLOCATABLE :: XUNIF_BEG_HOLIDAY ! Julian day of year for beginning of holiday
REAL, DIMENSION(:,:), ALLOCATABLE :: XUNIF_END_HOLIDAY ! Julian day of year for end of holiday
REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_MOD_HOLIDAY ! Modulation factor for internal heat release during holidays [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_DAYWBEG_SCHED ! File name for DAYWBEG_SCHED
-CHARACTER(LEN=NFNAM) :: CFNAM_HOURBEG_SCHED ! File name for HOURBEG_SCHED
-CHARACTER(LEN=NFNAM) :: CFNAM_PROBOCC ! File name for PROBOCC
-CHARACTER(LEN=NFNAM) :: CFNAM_BEG_HOLIDAY ! File name for BEG_HOLIDAY
-CHARACTER(LEN=NFNAM) :: CFNAM_END_HOLIDAY ! File name for END_HOLIDAY
-CHARACTER(LEN=NFNAM) :: CFNAM_MOD_HOLIDAY ! File name for MOD_HOLIDAY
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_DAYWBEG_SCHED ! File name for DAYWBEG_SCHED
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_HOURBEG_SCHED ! File name for HOURBEG_SCHED
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_PROBOCC ! File name for PROBOCC
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_BEG_HOLIDAY ! File name for BEG_HOLIDAY
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_END_HOLIDAY ! File name for END_HOLIDAY
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_MOD_HOLIDAY ! File name for MOD_HOLIDAY
CHARACTER(LEN=NFTYP) :: CFTYP_DAYWBEG_SCHED ! File type for DAYWBEG_SCHED
CHARACTER(LEN=NFTYP) :: CFTYP_HOURBEG_SCHED ! File type for HOURBEG_SCHED
CHARACTER(LEN=NFTYP) :: CFTYP_PROBOCC ! File type for PROBOCC
@@ -248,122 +247,122 @@ CHARACTER(LEN=NFTYP) :: CFTYP_BEG_HOLIDAY ! File type for BEG_HOL
CHARACTER(LEN=NFTYP) :: CFTYP_END_HOLIDAY ! File type for END_HOLIDAY
CHARACTER(LEN=NFTYP) :: CFTYP_MOD_HOLIDAY ! File type for MOD_HOLIDAY
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_OCCD ! Design temperature for air conditioning, occupied, day [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_TCOOL_OCCD ! File name for TCOOL_OCCD
-CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_OCCD ! File type for TCOOL_OCCD
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_OCCD ! Design temperature for air conditioning, occupied, day [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TCOOL_OCCD ! File name for TCOOL_OCCD
+CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_OCCD ! File type for TCOOL_OCCD
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_OCCN ! Design temperature for air conditioning, occupied, night [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_TCOOL_OCCN ! File name for TCOOL_OCCN
-CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_OCCN ! File type for TCOOL_OCCN
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_OCCN ! Design temperature for air conditioning, occupied, night [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TCOOL_OCCN ! File name for TCOOL_OCCN
+CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_OCCN ! File type for TCOOL_OCCN
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_VCDD ! Design temperature for air conditioning, vacant, day [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_TCOOL_VCDD ! File name for TCOOL_VCDD
-CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_VCDD ! File type for TCOOL_VCDD
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_VCDD ! Design temperature for air conditioning, vacant, day [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TCOOL_VCDD ! File name for TCOOL_VCDD
+CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_VCDD ! File type for TCOOL_VCDD
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_VCDN ! Design temperature for air conditioning, vacant, night [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_TCOOL_VCDN ! File name for TCOOL_VCDN
-CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_VCDN ! File type for TCOOL_VCDN
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_VCDN ! Design temperature for air conditioning, vacant, night [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TCOOL_VCDN ! File name for TCOOL_VCDN
+CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_VCDN ! File type for TCOOL_VCDN
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_VCLD ! Design temperature for air conditioning, vacant, long duration [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_TCOOL_VCLD ! File name for TCOOL_VCLD
-CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_VCLD ! File type for TCOOL_VCLD
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_TCOOL_VCLD ! Design temperature for air conditioning, vacant, long duration [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TCOOL_VCLD ! File name for TCOOL_VCLD
+CHARACTER(LEN=NFTYP) :: CFTYP_TCOOL_VCLD ! File type for TCOOL_VCLD
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_OCCD ! Design temperature for heating, occupied, day [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_THEAT_OCCD ! File name for THEAT_OCCD
-CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_OCCD ! File type for THEAT_OCCD
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_OCCD ! Design temperature for heating, occupied, day [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_THEAT_OCCD ! File name for THEAT_OCCD
+CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_OCCD ! File type for THEAT_OCCD
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_OCCN ! Design temperature for heating, occupied, night [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_THEAT_OCCN ! File name for THEAT_OCCN
-CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_OCCN ! File type for THEAT_OCCN
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_OCCN ! Design temperature for heating, occupied, night [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_THEAT_OCCN ! File name for THEAT_OCCN
+CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_OCCN ! File type for THEAT_OCCN
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_VCDD ! Design temperature for heating, vacant, day [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_THEAT_VCDD ! File name for THEAT_VCDD
-CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_VCDD ! File type for THEAT_VCDD
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_VCDD ! Design temperature for heating, vacant, day [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_THEAT_VCDD ! File name for THEAT_VCDD
+CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_VCDD ! File type for THEAT_VCDD
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_VCDN ! Design temperature for heating, vacant, night [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_THEAT_VCDN ! File name for THEAT_VCDN
-CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_VCDN ! File type for THEAT_VCDN
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_VCDN ! Design temperature for heating, vacant, night [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_THEAT_VCDN ! File name for THEAT_VCDN
+CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_VCDN ! File type for THEAT_VCDN
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_VCLD ! Design temperature for heating, vacant, long duration [K]
-CHARACTER(LEN=NFNAM) :: CFNAM_THEAT_VCLD ! File name for THEAT_VCLD
-CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_VCLD ! File type for THEAT_VCLD
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_THEAT_VCLD ! Design temperature for heating, vacant, long duration [K]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_THEAT_VCLD ! File name for THEAT_VCLD
+CHARACTER(LEN=NFTYP) :: CFTYP_THEAT_VCLD ! File type for THEAT_VCLD
!
! Internal heat gains
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_QIN ! Internal heat gains [W m-2(floor)]
-REAL :: XUNIF_QIN_FRAD ! Radiant fraction of int heat gains [1]
-REAL :: XUNIF_QIN_FLAT ! Latent franction of internal heat gains [1]
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_MODQIN_VCD ! Modulation during short-term vacancy [1]
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_MODQIN_VLD ! Modulation during long-term vacancy [1]
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_MODQIN_NIG ! Modulation during night [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_QIN ! File name for QIN
-CHARACTER(LEN=NFNAM) :: CFNAM_QIN_FRAD ! File name for QIN_FRAD
-CHARACTER(LEN=NFNAM) :: CFNAM_QIN_FLAT ! File name for QIN_FLAT
-CHARACTER(LEN=NFNAM) :: CFNAM_MODQIN_VCD ! File name for MODQIN_VCD
-CHARACTER(LEN=NFNAM) :: CFNAM_MODQIN_VLD ! File name for MODQIN_VLD
-CHARACTER(LEN=NFNAM) :: CFNAM_MODQIN_NIG ! File name for MODQIN_NIG
-CHARACTER(LEN=NFTYP) :: CFTYP_QIN ! File type for QIN
-CHARACTER(LEN=NFTYP) :: CFTYP_QIN_FRAD ! File type for QIN_FRAD
-CHARACTER(LEN=NFTYP) :: CFTYP_QIN_FLAT ! File type for QIN_FLAT
-CHARACTER(LEN=NFTYP) :: CFTYP_MODQIN_VCD ! File type for MODQIN_VCD
-CHARACTER(LEN=NFTYP) :: CFTYP_MODQIN_VLD ! File type for MODQIN_VLD
-CHARACTER(LEN=NFTYP) :: CFTYP_MODQIN_NIG ! File type for MODQIN_NIG
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_QIN ! Internal heat gains [W m-2(floor)]
+REAL :: XUNIF_QIN_FRAD ! Radiant fraction of int heat gains [1]
+REAL :: XUNIF_QIN_FLAT ! Latent franction of internal heat gains [1]
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_MODQIN_VCD ! Modulation during short-term vacancy [1]
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_MODQIN_VLD ! Modulation during long-term vacancy [1]
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_MODQIN_NIG ! Modulation during night [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_QIN ! File name for QIN
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_QIN_FRAD ! File name for QIN_FRAD
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_QIN_FLAT ! File name for QIN_FLAT
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_MODQIN_VCD ! File name for MODQIN_VCD
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_MODQIN_VLD ! File name for MODQIN_VLD
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_MODQIN_NIG ! File name for MODQIN_NIG
+CHARACTER(LEN=NFTYP) :: CFTYP_QIN ! File type for QIN
+CHARACTER(LEN=NFTYP) :: CFTYP_QIN_FRAD ! File type for QIN_FRAD
+CHARACTER(LEN=NFTYP) :: CFTYP_QIN_FLAT ! File type for QIN_FLAT
+CHARACTER(LEN=NFTYP) :: CFTYP_MODQIN_VCD ! File type for MODQIN_VCD
+CHARACTER(LEN=NFTYP) :: CFTYP_MODQIN_VLD ! File type for MODQIN_VLD
+CHARACTER(LEN=NFTYP) :: CFTYP_MODQIN_NIG ! File type for MODQIN_NIG
!
! window parameters
-REAL :: XUNIF_GR ! Glazing ratio [1]
-REAL :: XUNIF_SHGC ! Solar transmittance of windows [1]
-REAL :: XUNIF_SHGC_SH ! solar transmittance of windows + shading [1]
-REAL :: XUNIF_U_WIN ! U-Value of window [W.m-2.K-1]
-CHARACTER(LEN=NFNAM) :: CFNAM_GR ! File name for GR
-CHARACTER(LEN=NFNAM) :: CFNAM_SHGC ! File name for SHGC
-CHARACTER(LEN=NFNAM) :: CFNAM_SHGC_SH ! File name for SHGC_SH
-CHARACTER(LEN=NFNAM) :: CFNAM_U_WIN ! File name for U_WIN
-CHARACTER(LEN=NFTYP) :: CFTYP_GR ! File type for GR
-CHARACTER(LEN=NFTYP) :: CFTYP_SHGC ! File type for SHGC
-CHARACTER(LEN=NFTYP) :: CFTYP_SHGC_SH ! File type for SHGC
-CHARACTER(LEN=NFTYP) :: CFTYP_U_WIN ! File type for U_WIN
+REAL :: XUNIF_GR ! Glazing ratio [1]
+REAL :: XUNIF_SHGC ! Solar transmittance of windows [1]
+REAL :: XUNIF_SHGC_SH ! solar transmittance of windows + shading [1]
+REAL :: XUNIF_U_WIN ! U-Value of window [W.m-2.K-1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GR ! File name for GR
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_SHGC ! File name for SHGC
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_SHGC_SH ! File name for SHGC_SH
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_U_WIN ! File name for U_WIN
+CHARACTER(LEN=NFTYP) :: CFTYP_GR ! File type for GR
+CHARACTER(LEN=NFTYP) :: CFTYP_SHGC ! File type for SHGC
+CHARACTER(LEN=NFTYP) :: CFTYP_SHGC_SH ! File type for SHGC
+CHARACTER(LEN=NFTYP) :: CFTYP_U_WIN ! File type for U_WIN
!
! air renewal
-REAL :: XUNIF_N50 ! Airtightness of the building [vol.h-1 at 5O Pa]
-CHARACTER(LEN=NFNAM) :: CFNAM_N50 ! File name for N50
-CHARACTER(LEN=NFTYP) :: CFTYP_N50 ! File type for N50
+REAL :: XUNIF_N50 ! Airtightness of the building [vol.h-1 at 5O Pa]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_N50 ! File name for N50
+CHARACTER(LEN=NFTYP) :: CFTYP_N50 ! File type for N50
!
! parameters for autosize calculation of the AC systems
-REAL :: XUNIF_T_SIZE_MAX ! Temperature for capacity of the cooling system [K]
-REAL :: XUNIF_T_SIZE_MIN ! Temperature for capacity of the heating system [K]
- CHARACTER(LEN=NFNAM) :: CFNAM_T_SIZE_MAX ! File name for T_SIZE_MAX
- CHARACTER(LEN=NFNAM) :: CFNAM_T_SIZE_MIN ! File name for T_SIZE_MIN
- CHARACTER(LEN=NFTYP) :: CFTYP_T_SIZE_MAX ! File type for T_SIZE_MAX
- CHARACTER(LEN=NFTYP) :: CFTYP_T_SIZE_MIN ! File type for T_SIZE_MIN
+REAL :: XUNIF_T_SIZE_MAX ! Temperature for capacity of the cooling system [K]
+REAL :: XUNIF_T_SIZE_MIN ! Temperature for capacity of the heating system [K]
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_T_SIZE_MAX ! File name for T_SIZE_MAX
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_T_SIZE_MIN ! File name for T_SIZE_MIN
+ CHARACTER(LEN=NFTYP) :: CFTYP_T_SIZE_MAX ! File type for T_SIZE_MAX
+ CHARACTER(LEN=NFTYP) :: CFTYP_T_SIZE_MIN ! File type for T_SIZE_MIN
!
! heating fractions and emission factors(for CO2 flux from buildings calculation)
-REAL :: XUNIF_FRAC_HEAT_ELEC ! uniform value for Fraction of electric heating [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_FRAC_HEAT_ELEC ! file name for Fraction of electric heating
-CHARACTER(LEN=NFTYP) :: CFTYP_FRAC_HEAT_ELEC ! file type for Fraction of electric heating
+REAL :: XUNIF_FRAC_HEAT_ELEC ! uniform value for Fraction of electric heating [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRAC_HEAT_ELEC ! file name for Fraction of electric heating
+CHARACTER(LEN=NFTYP) :: CFTYP_FRAC_HEAT_ELEC ! file type for Fraction of electric heating
!
-REAL :: XUNIF_FRAC_HEAT_GAS ! uniform value for Fraction of gas heating [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_FRAC_HEAT_GAS ! file name for Fraction of gas heating
-CHARACTER(LEN=NFTYP) :: CFTYP_FRAC_HEAT_GAS ! file type for Fraction of gas heating
+REAL :: XUNIF_FRAC_HEAT_GAS ! uniform value for Fraction of gas heating [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRAC_HEAT_GAS ! file name for Fraction of gas heating
+CHARACTER(LEN=NFTYP) :: CFTYP_FRAC_HEAT_GAS ! file type for Fraction of gas heating
!
-REAL :: XUNIF_FRAC_HEAT_OTHER ! uniform value for Fraction of other heating [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_FRAC_HEAT_OTHER ! file name for Fraction of other heating
-CHARACTER(LEN=NFTYP) :: CFTYP_FRAC_HEAT_OTHER ! file type for Fraction of other heating
+REAL :: XUNIF_FRAC_HEAT_OTHER ! uniform value for Fraction of other heating [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRAC_HEAT_OTHER ! file name for Fraction of other heating
+CHARACTER(LEN=NFTYP) :: CFTYP_FRAC_HEAT_OTHER ! file type for Fraction of other heating
!
-REAL :: XUNIF_FRAC_HEAT_FUEL ! uniform value for Fraction of fuel heating [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_FRAC_HEAT_FUEL ! file name for Fraction of fuel heating
-CHARACTER(LEN=NFTYP) :: CFTYP_FRAC_HEAT_FUEL ! file type for Fraction of fuel heating
+REAL :: XUNIF_FRAC_HEAT_FUEL ! uniform value for Fraction of fuel heating [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRAC_HEAT_FUEL ! file name for Fraction of fuel heating
+CHARACTER(LEN=NFTYP) :: CFTYP_FRAC_HEAT_FUEL ! file type for Fraction of fuel heating
!
REAL :: XPAR_CF_CO2_ELEC ! Emission factor CO2/electricity [KgCO2.J-1]
REAL :: XPAR_CF_CO2_GAS ! Emission factor CO2/gas [KgCO2.J-1]
REAL :: XPAR_CF_CO2_FUEL ! Emission factor CO2/fuel [KgCO2.J-1]
REAL :: XPAR_CF_CO2_OTHER ! Emission factor CO2/other source [KgCO2.J-1]
!
-REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_HOTWAT ! Energy needed for hot water [W m-2(floor)]
-CHARACTER(LEN=NFNAM) :: CFNAM_HOTWAT ! Energy needed for hot water [W m-2(floor)]
-CHARACTER(LEN=NFTYP) :: CFTYP_HOTWAT ! Energy needed for hot water [W m-2(floor)]
+REAL, DIMENSION(NBEMCOMP_MAX) :: XUNIF_HOTWAT ! Energy needed for hot water [W m-2(floor)]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_HOTWAT ! Energy needed for hot water [W m-2(floor)]
+CHARACTER(LEN=NFTYP) :: CFTYP_HOTWAT ! Energy needed for hot water [W m-2(floor)]
!
-REAL :: XUNIF_F_HW_GAS ! Fraction of warm water heated by gas [1]
-CHARACTER(LEN=NFNAM) :: CFNAM_F_HW_GAS ! File name for F_HW_GAS
-CHARACTER(LEN=NFTYP) :: CFTYP_F_HW_GAS ! File type for F_HW_GAS
+REAL :: XUNIF_F_HW_GAS ! Fraction of warm water heated by gas [1]
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_F_HW_GAS ! File name for F_HW_GAS
+CHARACTER(LEN=NFTYP) :: CFTYP_F_HW_GAS ! File type for F_HW_GAS
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
diff --git a/src/SURFEX/pgd_chemistry.F90 b/src/SURFEX/pgd_chemistry.F90
index 7d8e7e24691ae76435f234c37248a87f66820252..8d23a56099333a3a998aea5873769791d1bc3440 100644
--- a/src/SURFEX/pgd_chemistry.F90
+++ b/src/SURFEX/pgd_chemistry.F90
@@ -53,7 +53,7 @@ USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_PGD_GRID, ONLY : NL
USE MODD_PGDWORK, ONLY : CATYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_CH_SURF, ONLY : JPEMISMAX_F
!
USE MODI_GET_LUOUT
@@ -107,7 +107,7 @@ INTEGER :: NEMIS_PGD_NBR
INTEGER, DIMENSION(JPEMISMAX_F):: NEMIS_PGD_TIME
CHARACTER(LEN=3), DIMENSION(JPEMISMAX_F):: CEMIS_PGD_AREA
CHARACTER(LEN=3), DIMENSION(JPEMISMAX_F):: CEMIS_PGD_ATYPE
- CHARACTER(LEN=28), DIMENSION(JPEMISMAX_F):: CEMIS_PGD_FILE
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(JPEMISMAX_F):: CEMIS_PGD_FILE
CHARACTER(LEN=6), DIMENSION(JPEMISMAX_F):: CEMIS_PGD_FILETYPE
CHARACTER(LEN=6) :: YMASK
REAL, DIMENSION(:), ALLOCATABLE :: ZEMIS_FIELD, ZEMIS_FIELDS
@@ -131,7 +131,7 @@ NEMIS_PGD_TIME(:) = 0
CEMIS_PGD_COMMENT(:) = ''
CEMIS_PGD_AREA(:) = 'ALL'
CEMIS_PGD_FILETYPE(:)= 'DIRECT'
-CEMIS_PGD_FILE(:) = ' '
+CEMIS_PGD_FILE(:) = ''
CEMIS_PGD_ATYPE(:) = 'ARI'
!
CALL GET_LUOUT(HPROGRAM,ILUOUT)
diff --git a/src/SURFEX/pgd_chemistry_snap.F90 b/src/SURFEX/pgd_chemistry_snap.F90
index f939e9d9f9931c690d673ce598d2760fe278929a..59101d00f3d80ce393a3baaec0b28c45bd019f9a 100644
--- a/src/SURFEX/pgd_chemistry_snap.F90
+++ b/src/SURFEX/pgd_chemistry_snap.F90
@@ -50,7 +50,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_PGDWORK, ONLY : CATYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
USE MODD_PGD_GRID, ONLY : NL
USE MODD_CH_SURF, ONLY : JPEMISMAX_S, JPSNAPMAX
USE MODI_GET_LUOUT
@@ -101,13 +101,13 @@ INTEGER :: JSNAP ! loop counter on SNAP categories
REAL(KIND=JPRB) :: ZHOOK_HANDLE
CHARACTER(LEN=LEN_HREC), DIMENSION(JPEMISMAX_S):: CEMIS_NAME
CHARACTER(LEN=40), DIMENSION(JPEMISMAX_S):: CEMIS_COMMENT
- CHARACTER(LEN=28), DIMENSION(JPEMISMAX_S):: CSNAP_MONTHLY_FILE
- CHARACTER(LEN=28), DIMENSION(JPEMISMAX_S):: CSNAP_DAILY_FILE
- CHARACTER(LEN=28), DIMENSION(JPEMISMAX_S):: CSNAP_HOURLY_FILE
- CHARACTER(LEN=50), DIMENSION(JPEMISMAX_S,JPSNAPMAX):: CSNAP_POTENTIAL_FILE
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(JPEMISMAX_S):: CSNAP_MONTHLY_FILE
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(JPEMISMAX_S):: CSNAP_DAILY_FILE
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(JPEMISMAX_S):: CSNAP_HOURLY_FILE
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(JPEMISMAX_S,JPSNAPMAX):: CSNAP_POTENTIAL_FILE
CHARACTER(LEN=6), DIMENSION(JPEMISMAX_S) :: CSNAP_POTENTIAL_FILETYPE
REAL, DIMENSION(JPEMISMAX_S,JPSNAPMAX):: XUNIF_SNAP
- CHARACTER(LEN=50) :: CDELTA_LEGAL_TIME_FILE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CDELTA_LEGAL_TIME_FILE
CHARACTER(LEN=6) :: CDELTA_LEGAL_TIME_FILETYPE
REAL :: XUNIF_DELTA_LEGAL_TIME
INTEGER :: NEMIS_NBR
@@ -142,13 +142,13 @@ CHN%NSNAP_D = 7
CHN%NSNAP_H = 24
XUNIF_SNAP = XUNDEF
XUNIF_DELTA_LEGAL_TIME = XUNDEF
-CSNAP_MONTHLY_FILE(:) = ' '
-CSNAP_DAILY_FILE(:) = ' '
-CSNAP_HOURLY_FILE(:) = ' '
+CSNAP_MONTHLY_FILE(:) = ''
+CSNAP_DAILY_FILE(:) = ''
+CSNAP_HOURLY_FILE(:) = ''
CSNAP_POTENTIAL_FILETYPE(:)= ' '
-CSNAP_POTENTIAL_FILE(:,:) = ' '
+CSNAP_POTENTIAL_FILE(:,:) = ''
CDELTA_LEGAL_TIME_FILETYPE = ' '
-CDELTA_LEGAL_TIME_FILE = ' '
+CDELTA_LEGAL_TIME_FILE = ''
!
CALL GET_LUOUT(HPROGRAM,ILUOUT)
!
diff --git a/src/SURFEX/pgd_cover.F90 b/src/SURFEX/pgd_cover.F90
index a62a1cb47dd8205d0f36ad53247b127cc0c27774..237bcedf65f266f9e3db54def0d25e0ae3ce7cb4 100644
--- a/src/SURFEX/pgd_cover.F90
+++ b/src/SURFEX/pgd_cover.F90
@@ -53,7 +53,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO, NPROC, NCOMM
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGD_GRID, ONLY : CGRID, NL, XGRID_PAR
USE MODD_PGDWORK, ONLY : XALL, NSIZE_ALL, NSIZE, XSUMVAL, XPREC
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER, NROCK, NSEA, NWATER, NPERMSNOW, LVEG_PRES
@@ -122,7 +122,7 @@ LOGICAL, INTENT(OUT) :: ORM_RIVER ! delete river coverage (defa
! ------------------------------
!
CHARACTER(LEN=10) :: YFIELD
- CHARACTER(LEN=28) :: YCOVER ! file name for cover types
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YCOVER ! file name for cover types
CHARACTER(LEN=6) :: YFILETYPE ! data file type
!
REAL :: XRM_COVER ! limit of coverage under which the
diff --git a/src/SURFEX/pgd_dms.F90 b/src/SURFEX/pgd_dms.F90
index e9f1dd56d59e49ac05ad054d08a3082bf64b06f9..446eff43c76e73f3c1b459bb33fb3b7d5dc1c89c 100644
--- a/src/SURFEX/pgd_dms.F90
+++ b/src/SURFEX/pgd_dms.F90
@@ -46,7 +46,7 @@ USE MODD_DMS_SURF_FIELDS_n,ONLY : DMS_SURF_FIELDS_t
!
USE MODD_PGD_GRID, ONLY : NL
USE MODD_PGDWORK, ONLY : CATYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODI_GET_LUOUT
USE MODI_PGD_FIELD
@@ -92,7 +92,7 @@ CHARACTER(LEN=20), DIMENSION(1000) :: YDMS_NAME
CHARACTER(LEN=3), DIMENSION(1000) :: YDMS_AREA
CHARACTER(LEN=3), DIMENSION(1000) :: CDMS_ATYPE ! avg type for dummy pgd fields
! ! 'ARI' , 'INV'
-CHARACTER(LEN=28), DIMENSION(1000) :: CDMS_FILE ! data files
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000) :: CDMS_FILE ! data files
CHARACTER(LEN=6), DIMENSION(1000) :: CDMS_FILETYPE ! type of these files
REAL, DIMENSION(:), ALLOCATABLE :: ZDMS_FIELD, ZDMS_FIELDS
INTEGER, DIMENSION(:), ALLOCATABLE :: IMASK
diff --git a/src/SURFEX/pgd_dummy.F90 b/src/SURFEX/pgd_dummy.F90
index 8dfed99705b92c849eb39ad5458c5ab8ba0d3ad5..5862a4b26fc147adcc7aa51f5f115171d5b60998 100644
--- a/src/SURFEX/pgd_dummy.F90
+++ b/src/SURFEX/pgd_dummy.F90
@@ -49,7 +49,7 @@ USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_PGD_GRID, ONLY : NL
USE MODD_PGDWORK, ONLY : CATYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODI_GET_LUOUT
USE MODI_PGD_FIELD
@@ -88,8 +88,8 @@ INTEGER :: IDUMMY_NBR
CHARACTER(LEN=3), DIMENSION(1000) :: YDUMMY_AREA
CHARACTER(LEN=3), DIMENSION(1000) :: CDUMMY_ATYPE ! avg type for dummy pgd fields
! ! 'ARI' , 'INV'
- CHARACTER(LEN=28), DIMENSION(1000) :: CDUMMY_FILE ! data files
- CHARACTER(LEN=6), DIMENSION(1000) :: CDUMMY_FILETYPE ! type of these files
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000) :: CDUMMY_FILE ! data files
+ CHARACTER(LEN=6), DIMENSION(1000) :: CDUMMY_FILETYPE ! type of these files
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/pgd_ecoclimap2_data.F90 b/src/SURFEX/pgd_ecoclimap2_data.F90
index 9980f694e1ace81a82c92ba8a15793cb3df54469..c3aea33c5592d076a3541b86bb208d208d11feb6 100644
--- a/src/SURFEX/pgd_ecoclimap2_data.F90
+++ b/src/SURFEX/pgd_ecoclimap2_data.F90
@@ -42,7 +42,7 @@
!* 0. DECLARATION
! -----------
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODD_DATA_COVER, ONLY : TDATA_SEED, TDATA_REAP, XDATA_WATSUP, XDATA_IRRIGTYPE,&
LDATA_IRRIG, XDATA_VEGTYPE, LCLIM_LAI
@@ -97,7 +97,7 @@ INTEGER, DIMENSION(:), ALLOCATABLE :: IVALUE ! value of a record of data poi
!* 0.3 Declaration of namelists
! ------------------------
!
- CHARACTER(LEN=28) :: YIRRIG ! file name for irrigation
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YIRRIG ! file name for irrigation
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
NAMELIST/NAM_ECOCLIMAP2/ YIRRIG, LCLIM_LAI
@@ -113,7 +113,7 @@ NAMELIST/NAM_ECOCLIMAP2/ YIRRIG, LCLIM_LAI
!* Initializations
!
IF (LHOOK) CALL DR_HOOK('PGD_ECOCLIMAP2_DATA',0,ZHOOK_HANDLE)
-YIRRIG = ' '
+YIRRIG = ''
LCLIM_LAI = .TRUE.
KYEAR = NUNDEF
!
@@ -167,7 +167,7 @@ DO JCOVER=301,JPCOVER
(IVALUE(2).EQ.0 .OR. IVALUE(3).EQ.0 .OR. IVALUE(4).EQ.0 .OR. &
IVALUE(5).EQ.0 .OR. IVALUE(6).EQ.0 .OR. IVALUE(7).EQ.0)) THEN
WRITE(ILUOUT,*)'**************************************************'
- WRITE(ILUOUT,*)'* error, missing data in ',YIRRIG,' for *'
+ WRITE(ILUOUT,*)'* error, missing data in ',TRIM(YIRRIG),' for *'
WRITE(ILUOUT,*)'* the class ',JCOVER,'. *'
WRITE(ILUOUT,*)'**************************************************'
IERR=1
@@ -176,7 +176,7 @@ DO JCOVER=301,JPCOVER
(IVALUE(2).NE.0 .OR. IVALUE(3).NE.0 .OR. IVALUE(4).NE.0 .OR. &
IVALUE(5).NE.0 .OR. IVALUE(6).NE.0 .OR. IVALUE(7).NE.0)) THEN
WRITE(ILUOUT,*)'**************************************************'
- WRITE(ILUOUT,*)'* error, too many data in ',YIRRIG,' for *'
+ WRITE(ILUOUT,*)'* error, too many data in ',TRIM(YIRRIG),' for *'
WRITE(ILUOUT,*)'* the class ',JCOVER,'. *'
WRITE(ILUOUT,*)'**************************************************'
IERR=1
diff --git a/src/SURFEX/pgd_field.F90 b/src/SURFEX/pgd_field.F90
index 71f34488e60dad97ccfd2dae61651ce0d237e228..d98843f016788617427c762333aae1d6bd5b3822 100644
--- a/src/SURFEX/pgd_field.F90
+++ b/src/SURFEX/pgd_field.F90
@@ -14,6 +14,7 @@ INTERFACE PGD_FIELD
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE MODD_SSO_n, ONLY : SSO_t
!
IMPLICIT NONE
@@ -35,7 +36,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
! ! 'TWN' : on town
! ! 'SEA' : on sea
! ! 'WAT' : on inland waters
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! data file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! data file name
CHARACTER(LEN=6), INTENT(INOUT) :: HFILETYPE ! data file type
REAL, INTENT(IN) :: PUNIF ! prescribed uniform value for field
REAL, DIMENSION(:),INTENT(OUT):: PFIELD ! physiographic field
@@ -54,6 +55,7 @@ END SUBROUTINE PGD_FIELD_1D
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE MODD_SSO_n, ONLY : SSO_t
!
IMPLICIT NONE
@@ -75,7 +77,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
! ! 'TWN' : on town
! ! 'SEA' : on sea
! ! 'WAT' : on inland waters
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! data file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! data file name
CHARACTER(LEN=6), INTENT(INOUT) :: HFILETYPE ! data file type
REAL, INTENT(IN) :: PUNIF ! prescribed uniform value for field
REAL, DIMENSION(:,:),INTENT(OUT):: PFIELD ! physiographic field
@@ -99,6 +101,7 @@ END MODULE MODI_PGD_FIELD
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODI_PGD_FIELDIN
@@ -122,7 +125,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
! ! 'TWN' : on town
! ! 'SEA' : on sea
! ! 'WAT' : on inland waters
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! data file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! data file name
CHARACTER(LEN=6), INTENT(INOUT) :: HFILETYPE ! data file type
REAL, INTENT(IN) :: PUNIF ! prescribed uniform value for field
REAL, DIMENSION(:),INTENT(OUT):: PFIELD ! physiographic field
@@ -160,6 +163,7 @@ END SUBROUTINE PGD_FIELD_1D
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODI_PGD_FIELDIN
@@ -183,7 +187,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
! ! 'TWN' : on town
! ! 'SEA' : on sea
! ! 'WAT' : on inland waters
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! data file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! data file name
CHARACTER(LEN=6), INTENT(INOUT) :: HFILETYPE ! data file type
REAL, INTENT(IN) :: PUNIF ! prescribed uniform value for field
REAL, DIMENSION(:,:),INTENT(OUT):: PFIELD ! physiographic field
diff --git a/src/SURFEX/pgd_fieldin.F90 b/src/SURFEX/pgd_fieldin.F90
index 35852a9437703065c935be540d6f64faa118f547..05f440ad99e4ca6096d9933820dc19e2e67cbcb6 100644
--- a/src/SURFEX/pgd_fieldin.F90
+++ b/src/SURFEX/pgd_fieldin.F90
@@ -56,7 +56,7 @@ USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_PGDWORK, ONLY : XALL, NSIZE_ALL, CATYPE, NSIZE, XSUMVAL, &
NVALNBR, NVALCOUNT, XVALLIST, JPVALMAX
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGD_GRID, ONLY : NL
!
USE MODD_DATA_COVER_PAR, ONLY : NTYPE, LVEG_PRES, NVEGTYPE_OLD
@@ -96,7 +96,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
! ! 'TWN' : on town
! ! 'SEA' : on sea
! ! 'WAT' : on inland waters
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! data file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! data file name
CHARACTER(LEN=6), INTENT(INOUT) :: HFILETYPE ! data file type
REAL, INTENT(IN) :: PUNIF ! prescribed uniform value for field
REAL, DIMENSION(:,:),INTENT(OUT):: PFIELD ! physiographic field
diff --git a/src/SURFEX/pgd_flake.F90 b/src/SURFEX/pgd_flake.F90
index e9843752d20cef53e8aa9983af48c96c68f94820..bee7b76ec3bc27d8a11718e07ed04ac30309bad6 100644
--- a/src/SURFEX/pgd_flake.F90
+++ b/src/SURFEX/pgd_flake.F90
@@ -52,7 +52,7 @@ USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_DATA_LAKE, ONLY : CLAKELDB, CSTATUSLDB
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODD_PGDWORK, ONLY : CATYPE
!
@@ -109,12 +109,12 @@ INTEGER,DIMENSION(:),ALLOCATABLE :: IWATER_STATUS
!* 0.3 Declaration of namelists
! ------------------------
!
- CHARACTER(LEN=28) :: YWATER_DEPTH ! file name for water depth
- CHARACTER(LEN=28) :: YWATER_DEPTH_STATUS ! file name for water depth status
- CHARACTER(LEN=28) :: YWATER_FETCH
- CHARACTER(LEN=28) :: YT_BS
- CHARACTER(LEN=28) :: YDEPTH_BS
- CHARACTER(LEN=28) :: YEXTCOEF_WATER
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YWATER_DEPTH ! file name for water depth
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YWATER_DEPTH_STATUS ! file name for water depth status
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YWATER_FETCH
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YT_BS
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YDEPTH_BS
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YEXTCOEF_WATER
CHARACTER(LEN=6) :: YWATER_DEPTHFILETYPE ! water depth file type
CHARACTER(LEN=6) :: YWATER_FETCHFILETYPE
@@ -152,12 +152,12 @@ XUNIF_T_BS = 286.
XUNIF_DEPTH_BS = 1.
XUNIF_EXTCOEF_WATER= 3.
!
-YWATER_DEPTH = ' '
-YWATER_DEPTH_STATUS = ' '
-YWATER_FETCH = ' '
-YT_BS = ' '
-YDEPTH_BS = ' '
-YEXTCOEF_WATER = ' '
+YWATER_DEPTH = ''
+YWATER_DEPTH_STATUS = ''
+YWATER_FETCH = ''
+YT_BS = ''
+YDEPTH_BS = ''
+YEXTCOEF_WATER = ''
!
YWATER_DEPTHFILETYPE = ' '
YWATER_FETCHFILETYPE = ' '
diff --git a/src/SURFEX/pgd_frac.F90 b/src/SURFEX/pgd_frac.F90
index 78c5d5cf731f3302d2223e41651d3d6352340733..5cfb5ab0a2be3bea37953104c626d19f0eabfdd6 100644
--- a/src/SURFEX/pgd_frac.F90
+++ b/src/SURFEX/pgd_frac.F90
@@ -48,7 +48,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGD_GRID, ONLY : NL, CGRID
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER, NCOVER, NTYPE
!
@@ -104,10 +104,10 @@ REAL :: XUNIF_TOWN ! value of town fraction
!
! name of files containing data
!
- CHARACTER(LEN=28) :: CFNAM_SEA ! name of sea file
- CHARACTER(LEN=28) :: CFNAM_WATER ! name of water file
- CHARACTER(LEN=28) :: CFNAM_NATURE ! name of nature file
- CHARACTER(LEN=28) :: CFNAM_TOWN ! name of town file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_SEA ! name of sea file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_WATER ! name of water file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_NATURE ! name of nature file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TOWN ! name of town file
!
! type of files containing data
!
@@ -140,10 +140,10 @@ XUNIF_NATURE = XUNDEF
XUNIF_TOWN = XUNDEF
LECOCLIMAP = .TRUE.
LECOSG = .FALSE.
-CFNAM_SEA (:)= ' '
-CFNAM_WATER (:)= ' '
-CFNAM_NATURE(:)= ' '
-CFNAM_TOWN (:)= ' '
+CFNAM_SEA (:)= ''
+CFNAM_WATER (:)= ''
+CFNAM_NATURE(:)= ''
+CFNAM_TOWN (:)= ''
CFTYP_SEA (:)= ' '
CFTYP_WATER (:)= ' '
CFTYP_NATURE(:)= ' '
diff --git a/src/SURFEX/pgd_grid.F90 b/src/SURFEX/pgd_grid.F90
index 9c17d153a3428715d0cb1593b01b253b90c94fb8..91384af0ab3ee19520500d7d56c018790254e563 100644
--- a/src/SURFEX/pgd_grid.F90
+++ b/src/SURFEX/pgd_grid.F90
@@ -52,6 +52,7 @@ USE MODD_SURFEX_MPI, ONLY : NSIZE, NPIO, NRANK, NCOMM, NPROC
USE MODD_PGD_GRID, ONLY : NL, XGRID_PAR, NGRID_PAR, XMESHLENGTH
USE MODN_PGD_GRID
USE MODD_CSTS, ONLY : XPI, XRADIUS
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODI_DEFAULT_GRID
USE MODI_GRID_FROM_FILE
@@ -93,7 +94,7 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling the surface
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! atmospheric file type
LOGICAL, INTENT(IN) :: OGRID ! .true. if grid is imposed by atm. model
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: HDIR
@@ -241,7 +242,7 @@ IF (LEN_TRIM(YINIFILETYPE)>0 .AND. LEN_TRIM(YINIFILE)>0 ) THEN
U%NSIZE_FULL = NL
#endif
ELSE
- CALL ABOR1_SFX('PGD_GRID: FILE TYPE NOT SUPPORTED '//HFILETYPE//' FOR FILE '//HFILE)
+ CALL ABOR1_SFX('PGD_GRID: FILE TYPE NOT SUPPORTED '//HFILETYPE//' FOR FILE '//TRIM(HFILE))
END IF
!
ELSE
diff --git a/src/SURFEX/pgd_grid_surf_atm.F90 b/src/SURFEX/pgd_grid_surf_atm.F90
index 72e5906bb4ce580e05d7287067eb301658e6d5ea..8f266fd0c3603bed78b137478a4a13f97fa1781d 100644
--- a/src/SURFEX/pgd_grid_surf_atm.F90
+++ b/src/SURFEX/pgd_grid_surf_atm.F90
@@ -45,7 +45,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY :GRID_CONF_PROJ_t
!
-USE MODD_SURF_PAR, ONLY : NVERSION, NBUGFIX
+USE MODD_SURF_PAR, ONLY : NVERSION, NBUGFIX, NFILENAMELGTMAX
USE MODD_SURF_CONF, ONLY : CPROGNAME
USE MODD_PGD_GRID, ONLY : LLATLONMASK, NL, NGRID_PAR
!
@@ -67,8 +67,8 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE! atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE! atmospheric file type
LOGICAL, INTENT(IN) :: OGRID ! .true. if grid is imposed by atm. model
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: HDIR
!
diff --git a/src/SURFEX/pgd_isba.F90 b/src/SURFEX/pgd_isba.F90
index 390d1987ebcefa334adc320929939b617d10317c..90486beaad66d37793c58633690829f072e8e7ba 100644
--- a/src/SURFEX/pgd_isba.F90
+++ b/src/SURFEX/pgd_isba.F90
@@ -65,7 +65,7 @@ USE MODD_SSO_n, ONLY : SSO_t
USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_PGD_GRID, ONLY : NL
USE MODD_PGDWORK, ONLY : CATYPE
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE, JPCOVER, NVT_TEBD, NVT_BONE, NVT_TRBE, &
@@ -176,14 +176,14 @@ CHARACTER(LEN=3) :: YPHOTO ! photosynthesis option
LOGICAL :: GTR_ML ! new radiative transfert
CHARACTER(LEN=4) :: YALBEDO
REAL :: ZRM_PATCH ! threshold to remove little fractions of patches
-CHARACTER(LEN=28) :: YSAND ! file name for sand fraction
-CHARACTER(LEN=28) :: YCLAY ! file name for clay fraction
-CHARACTER(LEN=28) :: YSOC_TOP ! file name for organic carbon top soil
-CHARACTER(LEN=28) :: YSOC_SUB ! file name for organic carbon sub soil
-CHARACTER(LEN=28) :: YCTI ! file name for topographic index
-CHARACTER(LEN=28) :: YRUNOFFB ! file name for runoffb parameter
-CHARACTER(LEN=28) :: YWDRAIN ! file name for wdrain parameter
-CHARACTER(LEN=28) :: YPERM ! file name for permafrost distribution
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSAND ! file name for sand fraction
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCLAY ! file name for clay fraction
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_TOP ! file name for organic carbon top soil
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_SUB ! file name for organic carbon sub soil
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCTI ! file name for topographic index
+CHARACTER(LEN=NFILENAMELGTMAX) :: YRUNOFFB ! file name for runoffb parameter
+CHARACTER(LEN=NFILENAMELGTMAX) :: YWDRAIN ! file name for wdrain parameter
+CHARACTER(LEN=NFILENAMELGTMAX) :: YPERM ! file name for permafrost distribution
CHARACTER(LEN=6) :: YSANDFILETYPE ! sand data file type
CHARACTER(LEN=6) :: YCLAYFILETYPE ! clay data file type
CHARACTER(LEN=6) :: YSOCFILETYPE ! organic carbon data file type
@@ -205,8 +205,8 @@ LOGICAL :: LIMP_CTI ! Imposed maps of topographic index
LOGICAL :: LIMP_PERM ! Imposed maps of permafrost distribution
LOGICAL :: GLULCC ! land-use scheme activation key
REAL, DIMENSION(150) :: ZSOILGRID ! Soil grid reference for DIF
-CHARACTER(LEN=28) :: YPH ! file name for pH
-CHARACTER(LEN=28) :: YFERT ! file name for fertilisation rate
+CHARACTER(LEN=NFILENAMELGTMAX) :: YPH ! file name for pH
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFERT ! file name for fertilisation rate
CHARACTER(LEN=6) :: YPHFILETYPE ! pH data file type
CHARACTER(LEN=6) :: YFERTFILETYPE ! fertilisation data file type
REAL :: XUNIF_PH ! uniform value of pH
diff --git a/src/SURFEX/pgd_isba_par.F90 b/src/SURFEX/pgd_isba_par.F90
index f1b3e3f7e3fe61cc5e0efd2b08ab123b106e1c38..40b4a5c7cf434b86ea422279fa28a8207f6225bd 100644
--- a/src/SURFEX/pgd_isba_par.F90
+++ b/src/SURFEX/pgd_isba_par.F90
@@ -65,7 +65,7 @@ USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE, NVT_IRR,
NVT_BOBD, NVT_BOND, NVT_BOGR, NVT_SHRB, NVT_C3W, & !#rustine
NVT_C3S, NVT_FLTR, NVT_FLGR, NTYPE !#rustine
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODD_AGRI, ONLY : LAGRIP, LIRRIGMODE, LMULTI_SEASON, JPSTAGE, XTHRESHOLD, XTHRESHOLD_DEFAULT, &
NVEG_IRR, NVEG_IRR_DEFAULT, NVEG_IRR_USE_DEFAULT, NPATCH_TREE, NIRR_TYPE, &
@@ -254,75 +254,75 @@ REAL, DIMENSION(NGROUND_MAX) :: XUNIF_WSAT
!
! name of files containing data
!
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_VEGTYPE ! fractions of each vegtypes
-!
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_VEG ! vegetation fraction
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_LAI ! LAI
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_Z0 ! roughness length
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_EMIS ! emissivity
-!
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NGROUND_MAX) :: CFNAM_DG ! soil depth
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NGROUND_MAX) :: CFNAM_ROOTFRAC ! root fraction profiles
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_GROUND_DEPTH! ground depth
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_ROOT_DEPTH ! root depth
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_ROOT_EXTINCTION! root extinction parameter
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_ROOT_LIN ! root linear parameter
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_DICE ! soil ice depth for runoff (m)
-!
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_RSMIN ! minimal stomatal resistance
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_GAMMA ! gamma parameter
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_WRMAX_CF ! coefficient for interception
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_RGL ! Rgl
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_CV ! Cv
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_Z0_O_Z0H ! ratio of roughness lengths
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBNIR_VEG ! albedo of vegetation (near-infra-red)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBVIS_VEG ! albedo of vegetation (visible)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBUV_VEG ! albedo of vegetation (UV)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBNIR_SOIL! albedo of soil (near-infra-red)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBVIS_SOIL! albedo of soil (visible)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBUV_SOIL ! albedo of soil (UV)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_GMES ! Gmes
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_BSLAI ! Biomass over LAI
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_LAIMIN ! minimum LAI
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEFOLD ! e-folding time for senesence
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_GC ! cuticular conductance
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_DMAX ! Dmax
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_F2I ! F2I
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_H_TREE ! height of trees
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_RE25 ! soil respiration parameter
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_CE_NITRO ! CE for nitrogen
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_CF_NITRO ! CF for nitrogen
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_CNA_NITRO ! CNA for nitrogen
-!
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_IRRIGTYPE ! irrigation type
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_IRRIGFRAC ! fraction of irrigation
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_WATSUP ! irrigation amount (mm)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_IRRIGFREQ ! minimum time between two irrigation (s)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_IRRIGTIME ! irrigation amount application time (s)
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_F2THRESHOLD! F2 threshold for irrigation triggering
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_M !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_D !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_M !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_D !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_S2_M !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_S2_D !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_S2_M !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_S2_D !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_S3_M !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_S3_D !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_S3_M !
- CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_S3_D !
-!
-CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_Z0LITTER
-CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_GNDLITTER
-CHARACTER(LEN=28), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_H_VEG
-!
-CHARACTER(LEN=28), DIMENSION(NGROUND_MAX) :: CFNAM_CONDSAT
-CHARACTER(LEN=28), DIMENSION(NGROUND_MAX) :: CFNAM_MPOTSAT
-CHARACTER(LEN=28), DIMENSION(NGROUND_MAX) :: CFNAM_BCOEF
-CHARACTER(LEN=28), DIMENSION(NGROUND_MAX) :: CFNAM_WWILT
-CHARACTER(LEN=28), DIMENSION(NGROUND_MAX) :: CFNAM_WFC
-CHARACTER(LEN=28), DIMENSION(NGROUND_MAX) :: CFNAM_WSAT
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_VEGTYPE ! fractions of each vegtypes
+!
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_VEG ! vegetation fraction
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_LAI ! LAI
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_Z0 ! roughness length
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_EMIS ! emissivity
+!
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NGROUND_MAX) :: CFNAM_DG ! soil depth
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NGROUND_MAX) :: CFNAM_ROOTFRAC ! root fraction profiles
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_GROUND_DEPTH! ground depth
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_ROOT_DEPTH ! root depth
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_ROOT_EXTINCTION! root extinction parameter
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_ROOT_LIN ! root linear parameter
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_DICE ! soil ice depth for runoff (m)
+!
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_RSMIN ! minimal stomatal resistance
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_GAMMA ! gamma parameter
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_WRMAX_CF ! coefficient for interception
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_RGL ! Rgl
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_CV ! Cv
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_Z0_O_Z0H ! ratio of roughness lengths
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBNIR_VEG ! albedo of vegetation (near-infra-red)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBVIS_VEG ! albedo of vegetation (visible)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBUV_VEG ! albedo of vegetation (UV)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBNIR_SOIL! albedo of soil (near-infra-red)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBVIS_SOIL! albedo of soil (visible)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_ALBUV_SOIL ! albedo of soil (UV)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_GMES ! Gmes
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_BSLAI ! Biomass over LAI
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_LAIMIN ! minimum LAI
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEFOLD ! e-folding time for senesence
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_GC ! cuticular conductance
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_DMAX ! Dmax
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_F2I ! F2I
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_H_TREE ! height of trees
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_RE25 ! soil respiration parameter
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_CE_NITRO ! CE for nitrogen
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_CF_NITRO ! CF for nitrogen
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_CNA_NITRO ! CNA for nitrogen
+!
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_IRRIGTYPE ! irrigation type
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_IRRIGFRAC ! fraction of irrigation
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_WATSUP ! irrigation amount (mm)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_IRRIGFREQ ! minimum time between two irrigation (s)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_IRRIGTIME ! irrigation amount application time (s)
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_F2THRESHOLD! F2 threshold for irrigation triggering
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_M !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_D !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_M !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_D !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_S2_M !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_S2_D !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_S2_M !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_S2_D !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_S3_M !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_SEED_S3_D !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_S3_M !
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX) :: CFNAM_REAP_S3_D !
+!
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_Z0LITTER
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_GNDLITTER
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NVEGTYPE_MAX,NTIME_MAX) :: CFNAM_H_VEG
+!
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NGROUND_MAX) :: CFNAM_CONDSAT
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NGROUND_MAX) :: CFNAM_MPOTSAT
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NGROUND_MAX) :: CFNAM_BCOEF
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NGROUND_MAX) :: CFNAM_WWILT
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NGROUND_MAX) :: CFNAM_WFC
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NGROUND_MAX) :: CFNAM_WSAT
!
! types of file containing data
!
@@ -572,76 +572,76 @@ XUNIF_WWILT = XUNDEF
XUNIF_WFC = XUNDEF
XUNIF_WSAT = XUNDEF
!
-CFNAM_VEGTYPE (:) = ' '
-!
-CFNAM_VEG (:,:) = ' '
-CFNAM_LAI (:,:) = ' '
-CFNAM_Z0 (:,:) = ' '
-CFNAM_EMIS (:,:) = ' '
-!
-CFNAM_DG (:,:) = ' '
-CFNAM_ROOTFRAC (:,:) = ' '
-CFNAM_DICE (:) = ' '
-!
-CFNAM_GROUND_DEPTH (:) = ' '
-CFNAM_ROOT_DEPTH (:) = ' '
-CFNAM_ROOT_EXTINCTION (:) = ' '
-CFNAM_ROOT_LIN (:) = ' '
-!
-CFNAM_RSMIN (:) = ' '
-CFNAM_GAMMA (:) = ' '
-CFNAM_WRMAX_CF (:) = ' '
-CFNAM_RGL (:) = ' '
-CFNAM_CV (:) = ' '
-CFNAM_Z0_O_Z0H (:) = ' '
-CFNAM_ALBNIR_VEG (:,:) = ' '
-CFNAM_ALBVIS_VEG (:,:) = ' '
-CFNAM_ALBUV_VEG (:,:) = ' '
-CFNAM_ALBNIR_SOIL (:,:) = ' '
-CFNAM_ALBVIS_SOIL (:,:) = ' '
-CFNAM_ALBUV_SOIL (:,:) = ' '
-CFNAM_GMES (:) = ' '
-CFNAM_BSLAI (:) = ' '
-CFNAM_LAIMIN (:) = ' '
-CFNAM_SEFOLD (:) = ' '
-CFNAM_GC (:) = ' '
-CFNAM_DMAX (:) = ' '
-CFNAM_F2I (:) = ' '
-CFNAM_H_TREE (:) = ' '
-CFNAM_RE25 (:) = ' '
-CFNAM_CE_NITRO (:) = ' '
-CFNAM_CF_NITRO (:) = ' '
-CFNAM_CNA_NITRO (:) = ' '
-!
-CFNAM_IRRIGTYPE (:) = ' '
-CFNAM_IRRIGFRAC (:) = ' '
-CFNAM_WATSUP (:,:) = ' '
-CFNAM_IRRIGFREQ (:) = ' '
-CFNAM_IRRIGTIME (:) = ' '
-CFNAM_F2THRESHOLD(:,:) = ' '
-CFNAM_SEED_M (:) = ' '
-CFNAM_SEED_D (:) = ' '
-CFNAM_REAP_M (:) = ' '
-CFNAM_REAP_D (:) = ' '
-CFNAM_SEED_S2_M (:) = ' '
-CFNAM_SEED_S2_D (:) = ' '
-CFNAM_REAP_S2_M (:) = ' '
-CFNAM_REAP_S2_D (:) = ' '
-CFNAM_SEED_S3_M (:) = ' '
-CFNAM_SEED_S3_D (:) = ' '
-CFNAM_REAP_S3_M (:) = ' '
-CFNAM_REAP_S3_D (:) = ' '
-!
-CFNAM_Z0LITTER (:,:) = ' '
-CFNAM_GNDLITTER (:,:) = ' '
-CFNAM_H_VEG (:,:) = ' '
-!
-CFNAM_CONDSAT (:) = ' '
-CFNAM_MPOTSAT (:) = ' '
-CFNAM_BCOEF (:) = ' '
-CFNAM_WWILT (:) = ' '
-CFNAM_WFC (:) = ' '
-CFNAM_WSAT (:) = ' '
+CFNAM_VEGTYPE (:) = ''
+!
+CFNAM_VEG (:,:) = ''
+CFNAM_LAI (:,:) = ''
+CFNAM_Z0 (:,:) = ''
+CFNAM_EMIS (:,:) = ''
+!
+CFNAM_DG (:,:) = ''
+CFNAM_ROOTFRAC (:,:) = ''
+CFNAM_DICE (:) = ''
+!
+CFNAM_GROUND_DEPTH (:) = ''
+CFNAM_ROOT_DEPTH (:) = ''
+CFNAM_ROOT_EXTINCTION (:) = ''
+CFNAM_ROOT_LIN (:) = ''
+!
+CFNAM_RSMIN (:) = ''
+CFNAM_GAMMA (:) = ''
+CFNAM_WRMAX_CF (:) = ''
+CFNAM_RGL (:) = ''
+CFNAM_CV (:) = ''
+CFNAM_Z0_O_Z0H (:) = ''
+CFNAM_ALBNIR_VEG (:,:) = ''
+CFNAM_ALBVIS_VEG (:,:) = ''
+CFNAM_ALBUV_VEG (:,:) = ''
+CFNAM_ALBNIR_SOIL (:,:) = ''
+CFNAM_ALBVIS_SOIL (:,:) = ''
+CFNAM_ALBUV_SOIL (:,:) = ''
+CFNAM_GMES (:) = ''
+CFNAM_BSLAI (:) = ''
+CFNAM_LAIMIN (:) = ''
+CFNAM_SEFOLD (:) = ''
+CFNAM_GC (:) = ''
+CFNAM_DMAX (:) = ''
+CFNAM_F2I (:) = ''
+CFNAM_H_TREE (:) = ''
+CFNAM_RE25 (:) = ''
+CFNAM_CE_NITRO (:) = ''
+CFNAM_CF_NITRO (:) = ''
+CFNAM_CNA_NITRO (:) = ''
+!
+CFNAM_IRRIGTYPE (:) = ''
+CFNAM_IRRIGFRAC (:) = ''
+CFNAM_WATSUP (:,:) = ''
+CFNAM_IRRIGFREQ (:) = ''
+CFNAM_IRRIGTIME (:) = ''
+CFNAM_F2THRESHOLD(:,:) = ''
+CFNAM_SEED_M (:) = ''
+CFNAM_SEED_D (:) = ''
+CFNAM_REAP_M (:) = ''
+CFNAM_REAP_D (:) = ''
+CFNAM_SEED_S2_M (:) = ''
+CFNAM_SEED_S2_D (:) = ''
+CFNAM_REAP_S2_M (:) = ''
+CFNAM_REAP_S2_D (:) = ''
+CFNAM_SEED_S3_M (:) = ''
+CFNAM_SEED_S3_D (:) = ''
+CFNAM_REAP_S3_M (:) = ''
+CFNAM_REAP_S3_D (:) = ''
+!
+CFNAM_Z0LITTER (:,:) = ''
+CFNAM_GNDLITTER (:,:) = ''
+CFNAM_H_VEG (:,:) = ''
+!
+CFNAM_CONDSAT (:) = ''
+CFNAM_MPOTSAT (:) = ''
+CFNAM_BCOEF (:) = ''
+CFNAM_WWILT (:) = ''
+CFNAM_WFC (:) = ''
+CFNAM_WSAT (:) = ''
!
CFTYP_VEGTYPE (:) = ' '
!
diff --git a/src/SURFEX/pgd_megan.F90 b/src/SURFEX/pgd_megan.F90
index f8b715a7ce98c499d8a9d018e88f4b0f1954d773..6bacba65353b2c1779237a00608fbe0232956635 100644
--- a/src/SURFEX/pgd_megan.F90
+++ b/src/SURFEX/pgd_megan.F90
@@ -49,7 +49,7 @@ USE MODD_MEGAN_SURF_FIELDS_n,ONLY : MEGAN_SURF_FIELDS_t
!
USE MODD_PGD_GRID, ONLY : NL
USE MODD_PGDWORK, ONLY : CATYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODI_GET_LUOUT
USE MODI_PGD_FIELD
@@ -95,7 +95,7 @@ CHARACTER(LEN=20), DIMENSION(1000) :: YMEGAN_NAME
CHARACTER(LEN=3), DIMENSION(1000) :: YMEGAN_AREA
CHARACTER(LEN=3), DIMENSION(1000) :: CMEGAN_ATYPE ! avg type for dummy pgd fields
! ! 'ARI' , 'INV'
-CHARACTER(LEN=28), DIMENSION(1000) :: CMEGAN_FILE ! data files
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000) :: CMEGAN_FILE ! data files
CHARACTER(LEN=6), DIMENSION(1000) :: CMEGAN_FILETYPE ! type of these files
REAL, DIMENSION(:), ALLOCATABLE :: ZMEGAN_FIELD, ZMEGAN_FIELDS
INTEGER, DIMENSION(:), ALLOCATABLE :: IMASK
diff --git a/src/SURFEX/pgd_orography.F90 b/src/SURFEX/pgd_orography.F90
index 21eb1b6a892dc2a9740937ec2594ee0f08627169..0161ca1e54b0d8d8eb9a13021f8f3d2d99df6c28 100644
--- a/src/SURFEX/pgd_orography.F90
+++ b/src/SURFEX/pgd_orography.F90
@@ -54,7 +54,7 @@ USE MODD_PGD_GRID, ONLY : NL, CGRID, XGRID_PAR
USE MODD_PGDWORK, ONLY : XALL, NSIZE_ALL, XSSQO, LSSQO, NSSO, &
XEXT_ALL, XSUMVAL, NSIZE, LORORAD, &
XRFSSO, XHALORADIUS, NFSSOMAX
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_CSTS, ONLY : XPI
!
USE MODI_GET_LUOUT
@@ -105,7 +105,7 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(SSO_t), INTENT(INOUT) :: USS
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE! atmospheric file type
LOGICAL, INTENT(IN) :: OZS ! .true. if orography is imposed by atm. model
!
@@ -136,10 +136,10 @@ INTEGER :: IZS ! size of orographic array in atmospheri
!* 0.3 Declaration of namelists
! ------------------------
!
- CHARACTER(LEN=28) :: YZS ! file name for orography
- CHARACTER(LEN=6) :: YFILETYPE ! data file type
-CHARACTER(LEN=28) :: YSLOPE ! file name for slope and aspect
-CHARACTER(LEN=6) :: YSLOPEFILETYPE ! data file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YZS ! file name for orography
+ CHARACTER(LEN=6) :: YFILETYPE ! data file type
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSLOPE ! file name for slope and aspect
+CHARACTER(LEN=6) :: YSLOPEFILETYPE ! data file type
REAL :: ZUNIF_ZS ! uniform orography
CHARACTER(LEN=3) :: YOROGTYPE ! orogpraphy type
! ! 'AVG' : average orography
@@ -365,7 +365,7 @@ ELSEIF(GIMP_ZS)THEN !GIMP_ZS (impose topo from input file at the same resolution
! CALL ABOR1_SFX('Use another format than netcdf for topo input file with GIMP_ZS')
CALL READ_PGD_NETCDF(UG, U, USS, &
- HPROGRAM,'SURF ',' ',YZS,'ZS ',U%XZS)
+ HPROGRAM,'SURF ',' ',TRIM(YZS),'ZS ',U%XZS)
USS%XSIL_ZS(:) = U%XZS(:)
USS%XAVG_ZS(:) = U%XZS(:)
diff --git a/src/SURFEX/pgd_seaflux.F90 b/src/SURFEX/pgd_seaflux.F90
index 50ba2923b6cbd3d6bf34207cac351a6501ab413e..8c9473fcc251d5c59d59957be8397a1fbf534b45 100644
--- a/src/SURFEX/pgd_seaflux.F90
+++ b/src/SURFEX/pgd_seaflux.F90
@@ -54,6 +54,7 @@ USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_PGD_GRID, ONLY : NL
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODI_READ_NAM_PGD_SEABATHY
USE MODI_PGD_BATHYFIELD
@@ -100,9 +101,9 @@ INTEGER :: ILUOUT
!* 0.3 Declaration of namelists
! ------------------------
!
- CHARACTER(LEN=28) :: YSEABATHY ! file name for bathymetrie
- CHARACTER(LEN=6) :: YSEABATHYFILETYPE ! bathymetry data file type
- CHARACTER(LEN=28) :: YNCVARNAME ! variable to read in netcdf
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YSEABATHY ! file name for bathymetrie
+ CHARACTER(LEN=6) :: YSEABATHYFILETYPE ! bathymetry data file type
+ CHARACTER(LEN=28) :: YNCVARNAME ! variable to read in netcdf
! file
REAL :: XUNIF_SEABATHY ! uniform value of bathymetry
REAL(KIND=JPRB) :: ZHOOK_HANDLE
diff --git a/src/SURFEX/pgd_seaflux_par.F90 b/src/SURFEX/pgd_seaflux_par.F90
index e009b61fd2aefb435e99b903ba728cf1e15382b0..9aad369e894b6dc6192e528b0d0000c5fdad5f05 100644
--- a/src/SURFEX/pgd_seaflux_par.F90
+++ b/src/SURFEX/pgd_seaflux_par.F90
@@ -48,7 +48,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODD_PGDWORK, ONLY : CATYPE
!
@@ -108,8 +108,8 @@ LOGICAL :: LSST_DATA
!
! name of files containing data
!
- CHARACTER(LEN=28), DIMENSION(NTIME_MAX) :: CFNAM_SST ! sea surface temperature
- CHARACTER(LEN=6), DIMENSION(NTIME_MAX) :: CFTYP_SST ! sea surface temperature
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NTIME_MAX) :: CFNAM_SST ! sea surface temperature
+ CHARACTER(LEN=6), DIMENSION(NTIME_MAX) :: CFTYP_SST ! sea surface temperature
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
NAMELIST/NAM_DATA_SEAFLUX/NTIME_SST, LSST_DATA, XUNIF_SST, CFNAM_SST, CFTYP_SST, &
@@ -123,7 +123,7 @@ IF (LHOOK) CALL DR_HOOK('PGD_SEAFLUX_PAR',0,ZHOOK_HANDLE)
NTIME_SST = 12
XUNIF_SST (:) = XUNDEF ! sea surface temperature
!
-CFNAM_SST (:) = ' '
+CFNAM_SST (:) = ''
!
CFTYP_SST (:) = ' '
!
diff --git a/src/SURFEX/pgd_snap_temp_profile.F90 b/src/SURFEX/pgd_snap_temp_profile.F90
index 37c63b916c8074f2580f8929255deb0cadb40608..e5339b755f67dd8ca68570d04d715b6b06cfae0b 100644
--- a/src/SURFEX/pgd_snap_temp_profile.F90
+++ b/src/SURFEX/pgd_snap_temp_profile.F90
@@ -35,7 +35,7 @@ USE MODI_GET_LUOUT
USE MODI_TEST_NAM_VAR_SURF
!
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
IMPLICIT NONE
@@ -44,7 +44,7 @@ IMPLICIT NONE
! ------------------------
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
REAL, DIMENSION(:,:), INTENT(OUT):: PSNAP_COEF ! Snap coefficient
INTEGER, INTENT(IN) :: KTPS ! Number of time step
INTEGER, INTENT(IN) :: KSNAP ! Number of snaps
diff --git a/src/SURFEX/pgd_surf_atm.F90 b/src/SURFEX/pgd_surf_atm.F90
index 9c35c67ef1e712803360f7417fa12c7e009dd4b9..2d09c380bc00b13a9397a86e285f7ec05e83ba28 100644
--- a/src/SURFEX/pgd_surf_atm.F90
+++ b/src/SURFEX/pgd_surf_atm.F90
@@ -48,6 +48,7 @@ USE MODD_SURFEX_n, ONLY : SURFEX_t
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO, NSIZE, NINDEX, NNUM
USE MODD_SURF_CONF, ONLY : CPROGNAME
USE MODD_PGD_GRID, ONLY : NL, LLATLONMASK, NGRID_PAR
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODI_GET_SIZE_FULL_n
USE MODI_GET_LUOUT
@@ -90,7 +91,7 @@ IMPLICIT NONE
TYPE(SURFEX_t), INTENT(INOUT) :: YSC
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
-CHARACTER(LEN=28), INTENT(IN) :: HFILE ! atmospheric file name
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE! atmospheric file type
LOGICAL, INTENT(IN) :: OZS ! .true. if orography is imposed by atm. model
!
diff --git a/src/SURFEX/pgd_teb_garden_par.F90 b/src/SURFEX/pgd_teb_garden_par.F90
index 9db42ed77990b5a10e62e04d00667b35138126ed..97b5ee8b01640bbca0fd8486076c5075957349f0 100644
--- a/src/SURFEX/pgd_teb_garden_par.F90
+++ b/src/SURFEX/pgd_teb_garden_par.F90
@@ -48,7 +48,7 @@ USE MODD_SSO_n, ONLY : SSO_t
USE MODD_TEB_OPTION_n, ONLY : TEB_OPTIONS_t
USE MODD_ISBA_OPTIONS_n, ONLY : ISBA_OPTIONS_t
USE MODD_DATA_ISBA_n, ONLY : DATA_ISBA_t
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGDWORK, ONLY : CATYPE
!
USE MODI_TEST_NAM_VAR_SURF
@@ -118,12 +118,12 @@ REAL :: XUNIF_RE25 ! Ecosystem Respi
!
! name of files containing data
!
- CHARACTER(LEN=28),DIMENSION(NTIME_MAX) :: CFNAM_LAI_HVEG ! LAI of high vegetation
- CHARACTER(LEN=28),DIMENSION(NTIME_MAX) :: CFNAM_LAI_LVEG ! LAI of low vegetation
- CHARACTER(LEN=28) :: CFNAM_H_HVEG ! height of trees
- CHARACTER(LEN=28) :: CFNAM_HTRUNK_HVEG ! height of TRUNK of trees
- CHARACTER(LEN=28) :: CFNAM_WCROWN_HVEG ! width of crown of trees
- CHARACTER(LEN=28) :: CFNAM_RE25 ! Ecosystem Respiration parameter (kg.m-2.s-1)
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NTIME_MAX) :: CFNAM_LAI_HVEG ! LAI of high vegetation
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NTIME_MAX) :: CFNAM_LAI_LVEG ! LAI of low vegetation
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_H_HVEG ! height of trees
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_HTRUNK_HVEG ! height of TRUNK of trees
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_WCROWN_HVEG ! width of crown of trees
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_RE25 ! Ecosystem Respiration parameter (kg.m-2.s-1)
!
! type of files containing data
@@ -181,12 +181,12 @@ XUNIF_HTRUNK_HVEG = XUNDEF
XUNIF_WCROWN_HVEG = XUNDEF
XUNIF_RE25 = XUNDEF
!
-CFNAM_LAI_HVEG = ' '
-CFNAM_LAI_LVEG = ' '
-CFNAM_H_HVEG = ' '
-CFNAM_HTRUNK_HVEG = ' '
-CFNAM_WCROWN_HVEG = ' '
-CFNAM_RE25 = ' '
+CFNAM_LAI_HVEG = ''
+CFNAM_LAI_LVEG = ''
+CFNAM_H_HVEG = ''
+CFNAM_HTRUNK_HVEG = ''
+CFNAM_WCROWN_HVEG = ''
+CFNAM_RE25 = ''
!
CFTYP_LAI_HVEG = ' '
CFTYP_LAI_LVEG = ' '
diff --git a/src/SURFEX/pgd_teb_greenroof_par.F90 b/src/SURFEX/pgd_teb_greenroof_par.F90
index 89b3f2a05fe4af9a3385a5c076d7f94fc1af327a..107e01778b508c1417cf3e15929e81cd77f90c97 100644
--- a/src/SURFEX/pgd_teb_greenroof_par.F90
+++ b/src/SURFEX/pgd_teb_greenroof_par.F90
@@ -49,7 +49,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
USE MODD_ISBA_OPTIONS_n, ONLY : ISBA_OPTIONS_t
USE MODD_ISBA_n, ONLY : ISBA_S_t, ISBA_K_t
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGDWORK, ONLY : CATYPE
!
USE MODI_READ_NAM_PGD_TEB_GREENROOF
@@ -114,10 +114,10 @@ REAL,DIMENSION(NTIME_GR_MAX) :: ZUNIF_LAI_GR ! LAI of green ro
!
! name of files containing data
!
- CHARACTER(LEN=28),DIMENSION(NLAYER_GR_MAX) :: YFNAM_OM_GR ! fraction of organic matter (OM) in green roof layer
- CHARACTER(LEN=28),DIMENSION(NLAYER_GR_MAX) :: YFNAM_CLAY_GR ! fraction of clay for the non-OM part of the green roof layer
- CHARACTER(LEN=28),DIMENSION(NLAYER_GR_MAX) :: YFNAM_SAND_GR ! fraction of sand for the non-OM part of the green roof layer
- CHARACTER(LEN=28),DIMENSION(NTIME_GR_MAX) :: YFNAM_LAI_GR ! LAI of green roof
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NLAYER_GR_MAX) :: YFNAM_OM_GR ! fraction of organic matter (OM) in green roof layer
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NLAYER_GR_MAX) :: YFNAM_CLAY_GR ! fraction of clay for the non-OM part of the green roof layer
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NLAYER_GR_MAX) :: YFNAM_SAND_GR ! fraction of sand for the non-OM part of the green roof layer
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NTIME_GR_MAX) :: YFNAM_LAI_GR ! LAI of green roof
!
! type of files containing data
!
@@ -147,10 +147,10 @@ ZUNIF_CLAY_GR = XUNDEF
ZUNIF_SAND_GR = XUNDEF
ZUNIF_LAI_GR = XUNDEF
!
-YFNAM_OM_GR = ' '
-YFNAM_CLAY_GR = ' '
-YFNAM_SAND_GR = ' '
-YFNAM_LAI_GR = ' '
+YFNAM_OM_GR = ''
+YFNAM_CLAY_GR = ''
+YFNAM_SAND_GR = ''
+YFNAM_LAI_GR = ''
!
YFTYP_OM_GR = ' '
YFTYP_CLAY_GR = ' '
diff --git a/src/SURFEX/pgd_teb_hydro_par.F90 b/src/SURFEX/pgd_teb_hydro_par.F90
index 58a91d6934e52ae8a85cabc10b4c4867332290ef..43e165f231412620ae5e0938b5c29621346e98b2 100644
--- a/src/SURFEX/pgd_teb_hydro_par.F90
+++ b/src/SURFEX/pgd_teb_hydro_par.F90
@@ -46,7 +46,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
USE MODD_DATA_TEB_HYDRO_n, ONLY : DATA_TEB_HYDRO_t
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
@@ -102,15 +102,15 @@ REAL :: XUNIF_URBDRAIN ! Limitation
!
! name of files containing data
!
-CHARACTER(LEN=28) :: CFNAM_DENS_WASTE ! waste water sewer length
-CHARACTER(LEN=28) :: CFNAM_DENS_STORM ! storm water sewer length
-CHARACTER(LEN=28) :: CFNAM_DSEWER ! waste water sewer depth
-CHARACTER(LEN=28) :: CFNAM_WS_ROOF_MAX ! Max. capacity of surface roof water storage
-CHARACTER(LEN=28) :: CFNAM_WS_ROAD_MAX ! Max. capacity of surface road water storage
-CHARACTER(LEN=28) :: CFNAM_IP_SEWER ! Parameter for parasite infiltrations into sewer
-CHARACTER(LEN=28) :: CFNAM_CONNEX ! Impervious surfaces connexion rate to the sewer
-CHARACTER(LEN=28) :: CFNAM_INFIL_ROAD ! Water infiltration through the roads
-CHARACTER(LEN=28) :: CFNAM_URBDRAIN ! Limitation of urban deep drainage (0-1)
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_DENS_WASTE ! waste water sewer length
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_DENS_STORM ! storm water sewer length
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_DSEWER ! waste water sewer depth
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_WS_ROOF_MAX ! Max. capacity of surface roof water storage
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_WS_ROAD_MAX ! Max. capacity of surface road water storage
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_IP_SEWER ! Parameter for parasite infiltrations into sewer
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_CONNEX ! Impervious surfaces connexion rate to the sewer
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_INFIL_ROAD ! Water infiltration through the roads
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_URBDRAIN ! Limitation of urban deep drainage (0-1)
!
! type of files containing data
!
@@ -152,15 +152,15 @@ XUNIF_IP_SEWER = 0.
XUNIF_CONNEX = 1.
XUNIF_INFIL_ROAD = 0.
XUNIF_URBDRAIN = 0.
-CFNAM_DENS_WASTE = ' '
-CFNAM_DENS_STORM = ' '
-CFNAM_DSEWER = ' '
-CFNAM_WS_ROOF_MAX = ' '
-CFNAM_WS_ROAD_MAX = ' '
-CFNAM_IP_SEWER = ' '
-CFNAM_CONNEX = ' '
-CFNAM_INFIL_ROAD = ' '
-CFNAM_URBDRAIN = ' '
+CFNAM_DENS_WASTE = ''
+CFNAM_DENS_STORM = ''
+CFNAM_DSEWER = ''
+CFNAM_WS_ROOF_MAX = ''
+CFNAM_WS_ROAD_MAX = ''
+CFNAM_IP_SEWER = ''
+CFNAM_CONNEX = ''
+CFNAM_INFIL_ROAD = ''
+CFNAM_URBDRAIN = ''
CFTYP_DENS_WASTE = ' '
CFTYP_DENS_STORM = ' '
CFTYP_DSEWER = ' '
diff --git a/src/SURFEX/pgd_teb_irrig.F90 b/src/SURFEX/pgd_teb_irrig.F90
index d0205cd5ef5100aec067ee9b7d9aef4a4e6a2131..9981e18f26f9eb799a8e405dbe8a8b2025148b2b 100644
--- a/src/SURFEX/pgd_teb_irrig.F90
+++ b/src/SURFEX/pgd_teb_irrig.F90
@@ -47,7 +47,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
USE MODD_TEB_IRRIG_n, ONLY : TEB_IRRIG_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODD_PGDWORK, ONLY : CATYPE
!
@@ -114,21 +114,21 @@ REAL :: XUNIF_RD_24H_IRRIG ! total irrigation over 24h fo
!
! name of files containing data
!
- CHARACTER(LEN=28) :: CFNAM_GD_START_MONTH
- CHARACTER(LEN=28) :: CFNAM_GD_END_MONTH
- CHARACTER(LEN=28) :: CFNAM_GD_START_HOUR
- CHARACTER(LEN=28) :: CFNAM_GD_END_HOUR
- CHARACTER(LEN=28) :: CFNAM_GD_24H_IRRIG
- CHARACTER(LEN=28) :: CFNAM_GR_START_MONTH
- CHARACTER(LEN=28) :: CFNAM_GR_END_MONTH
- CHARACTER(LEN=28) :: CFNAM_GR_START_HOUR
- CHARACTER(LEN=28) :: CFNAM_GR_END_HOUR
- CHARACTER(LEN=28) :: CFNAM_GR_24H_IRRIG
- CHARACTER(LEN=28) :: CFNAM_RD_START_MONTH
- CHARACTER(LEN=28) :: CFNAM_RD_END_MONTH
- CHARACTER(LEN=28) :: CFNAM_RD_START_HOUR
- CHARACTER(LEN=28) :: CFNAM_RD_END_HOUR
- CHARACTER(LEN=28) :: CFNAM_RD_24H_IRRIG
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GD_START_MONTH
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GD_END_MONTH
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GD_START_HOUR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GD_END_HOUR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GD_24H_IRRIG
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GR_START_MONTH
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GR_END_MONTH
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GR_START_HOUR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GR_END_HOUR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GR_24H_IRRIG
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_RD_START_MONTH
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_RD_END_MONTH
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_RD_START_HOUR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_RD_END_HOUR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_RD_24H_IRRIG
!
! type of files containing data
!
@@ -220,21 +220,21 @@ XUNIF_RD_START_HOUR = XUNDEF
XUNIF_RD_END_HOUR = XUNDEF
XUNIF_RD_24H_IRRIG = XUNDEF
!
-CFNAM_GD_START_MONTH = ' '
-CFNAM_GD_END_MONTH = ' '
-CFNAM_GD_START_HOUR = ' '
-CFNAM_GD_END_HOUR = ' '
-CFNAM_GD_24H_IRRIG = ' '
-CFNAM_GR_START_MONTH = ' '
-CFNAM_GR_END_MONTH = ' '
-CFNAM_GR_START_HOUR = ' '
-CFNAM_GR_END_HOUR = ' '
-CFNAM_GR_24H_IRRIG = ' '
-CFNAM_RD_START_MONTH = ' '
-CFNAM_RD_END_MONTH = ' '
-CFNAM_RD_START_HOUR = ' '
-CFNAM_RD_END_HOUR = ' '
-CFNAM_RD_24H_IRRIG = ' '
+CFNAM_GD_START_MONTH = ''
+CFNAM_GD_END_MONTH = ''
+CFNAM_GD_START_HOUR = ''
+CFNAM_GD_END_HOUR = ''
+CFNAM_GD_24H_IRRIG = ''
+CFNAM_GR_START_MONTH = ''
+CFNAM_GR_END_MONTH = ''
+CFNAM_GR_START_HOUR = ''
+CFNAM_GR_END_HOUR = ''
+CFNAM_GR_24H_IRRIG = ''
+CFNAM_RD_START_MONTH = ''
+CFNAM_RD_END_MONTH = ''
+CFNAM_RD_START_HOUR = ''
+CFNAM_RD_END_HOUR = ''
+CFNAM_RD_24H_IRRIG = ''
!
CFTYP_GD_START_MONTH = ' '
CFTYP_GD_END_MONTH = ' '
diff --git a/src/SURFEX/pgd_teb_par.F90 b/src/SURFEX/pgd_teb_par.F90
index e83c4ab25ad9e691d858b30f317417df4f602155..925875bef7058b86c2f8284c3f8a9ca62ef45d30 100644
--- a/src/SURFEX/pgd_teb_par.F90
+++ b/src/SURFEX/pgd_teb_par.F90
@@ -62,7 +62,7 @@ USE MODD_BLD_DESCRIPTION_n, ONLY : BLD_DESC_t
USE MODD_DATA_TEB_n, ONLY : DATA_TEB_t
USE MODD_TEB_OPTION_n, ONLY : TEB_OPTIONS_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
@@ -127,72 +127,72 @@ INTEGER :: NPAR_WALL_LAYER ! number of wall layers
! Geometric Parameters:
!
INTEGER :: NUNIF_BLDTYPE
- CHARACTER(LEN=28) :: CFNAM_BLDTYPE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_BLDTYPE
CHARACTER(LEN=6) :: CFTYP_BLDTYPE
INTEGER :: NUNIF_IND_BLD_AGE
- CHARACTER(LEN=28) :: CFNAM_IND_BLD_AGE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_IND_BLD_AGE
CHARACTER(LEN=6) :: CFTYP_IND_BLD_AGE
INTEGER :: NUNIF_COL_BLD_AGE
- CHARACTER(LEN=28) :: CFNAM_COL_BLD_AGE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_COL_BLD_AGE
CHARACTER(LEN=6) :: CFTYP_COL_BLD_AGE
- CHARACTER(LEN=28) :: CCSVFILEARCHI
- CHARACTER(LEN=28) :: CCSVFILECOMPO
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CCSVFILEARCHI
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CCSVFILECOMPO
INTEGER :: NUNIF_USETYPE
- CHARACTER(LEN=28) :: CFNAM_USETYPE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_USETYPE
CHARACTER(LEN=6) :: CFTYP_USETYPE
INTEGER :: NUNIF_P1TERRITORY
- CHARACTER(LEN=28) :: CFNAM_P1TERRITORY
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_P1TERRITORY
CHARACTER(LEN=6) :: CFTYP_P1TERRITORY
INTEGER :: NUNIF_PXTERRITORY
- CHARACTER(LEN=28) :: CFNAM_PXTERRITORY
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_PXTERRITORY
CHARACTER(LEN=6) :: CFTYP_PXTERRITORY
REAL :: XUNIF_FRACIHS
- CHARACTER(LEN=28) :: CFNAM_FRACIHS
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACIHS
CHARACTER(LEN=6) :: CFTYP_FRACIHS
REAL :: XUNIF_FRACCHS
- CHARACTER(LEN=28) :: CFNAM_FRACCHS
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACCHS
CHARACTER(LEN=6) :: CFTYP_FRACCHS
REAL :: XUNIF_FRACCOM
- CHARACTER(LEN=28) :: CFNAM_FRACCOM
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACCOM
CHARACTER(LEN=6) :: CFTYP_FRACCOM
REAL :: XUNIF_FRACTER
- CHARACTER(LEN=28) :: CFNAM_FRACTER
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACTER
CHARACTER(LEN=6) :: CFTYP_FRACTER
REAL :: XUNIF_FRACIND
- CHARACTER(LEN=28) :: CFNAM_FRACIND
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACIND
CHARACTER(LEN=6) :: CFTYP_FRACIND
REAL :: XUNIF_FRACNHE
- CHARACTER(LEN=28) :: CFNAM_FRACNHE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACNHE
CHARACTER(LEN=6) :: CFTYP_FRACNHE
REAL :: XUNIF_FRACPAV
- CHARACTER(LEN=28) :: CFNAM_FRACPAV
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACPAV
CHARACTER(LEN=6) :: CFTYP_FRACPAV
REAL :: XUNIF_FRACMRI
- CHARACTER(LEN=28) :: CFNAM_FRACMRI
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACMRI
CHARACTER(LEN=6) :: CFTYP_FRACMRI
REAL :: XUNIF_FRACHRI
- CHARACTER(LEN=28) :: CFNAM_FRACHRI
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACHRI
CHARACTER(LEN=6) :: CFTYP_FRACHRI
REAL :: XUNIF_FRACATB
- CHARACTER(LEN=28) :: CFNAM_FRACATB
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRACATB
CHARACTER(LEN=6) :: CFTYP_FRACATB
REAL :: XUNIF_FOEQI_MAIS
- CHARACTER(LEN=28) :: CFNAM_FOEQI_MAIS
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FOEQI_MAIS
CHARACTER(LEN=6) :: CFTYP_FOEQI_MAIS
REAL :: XUNIF_FOEQI_APPT
- CHARACTER(LEN=28) :: CFNAM_FOEQI_APPT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FOEQI_APPT
CHARACTER(LEN=6) :: CFTYP_FOEQI_APPT
REAL :: XUNIF_FAEQI_MAIS
- CHARACTER(LEN=28) :: CFNAM_FAEQI_MAIS
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FAEQI_MAIS
CHARACTER(LEN=6) :: CFTYP_FAEQI_MAIS
REAL :: XUNIF_FAEQI_APPT
- CHARACTER(LEN=28) :: CFNAM_FAEQI_APPT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FAEQI_APPT
CHARACTER(LEN=6) :: CFTYP_FAEQI_APPT
REAL :: XUNIF_CRE_MAIS
- CHARACTER(LEN=28) :: CFNAM_CRE_MAIS
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_CRE_MAIS
CHARACTER(LEN=6) :: CFTYP_CRE_MAIS
REAL :: XUNIF_CRE_APPT
- CHARACTER(LEN=28) :: CFNAM_CRE_APPT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_CRE_APPT
CHARACTER(LEN=6) :: CFTYP_CRE_APPT
!
CHARACTER(LEN=3) :: CBLD_ATYPE ! type of averaging for buildings
@@ -208,16 +208,16 @@ REAL :: XUNIF_FRAC_HVEG ! fraction of high
REAL :: XUNIF_FRAC_LVEG ! fraction of low vegetation (-)
REAL :: XUNIF_FRAC_NVEG ! fraction of no vegetation (-)
REAL :: XUNIF_ROAD_DIR ! road direction (deg from North, clockwise)
- CHARACTER(LEN=28) :: CFNAM_BLD ! file name for BLD
- CHARACTER(LEN=28) :: CFNAM_ROAD ! file name for ROAD
- CHARACTER(LEN=28) :: CFNAM_BLD_HEIGHT ! file name for BLD_HEIGHT
- CHARACTER(LEN=28) :: CFNAM_WALL_O_HOR ! file name for WALL_O_HOR
- CHARACTER(LEN=28) :: CFNAM_Z0_TOWN ! file name for Z0_TOWN
- CHARACTER(LEN=28) :: CFNAM_GREENROOF ! file name for GREENROOF
- CHARACTER(LEN=28) :: CFNAM_FRAC_HVEG ! file name for FRAC_HVEG
- CHARACTER(LEN=28) :: CFNAM_FRAC_LVEG ! file name for FRAC_LVEG
- CHARACTER(LEN=28) :: CFNAM_FRAC_NVEG ! file name for FRAC_NVEG
- CHARACTER(LEN=28) :: CFNAM_ROAD_DIR ! file name for ROAD_DIR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_BLD ! file name for BLD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ROAD ! file name for ROAD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_BLD_HEIGHT ! file name for BLD_HEIGHT
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_WALL_O_HOR ! file name for WALL_O_HOR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_Z0_TOWN ! file name for Z0_TOWN
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_GREENROOF ! file name for GREENROOF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRAC_HVEG ! file name for FRAC_HVEG
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRAC_LVEG ! file name for FRAC_LVEG
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRAC_NVEG ! file name for FRAC_NVEG
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ROAD_DIR ! file name for ROAD_DIR
CHARACTER(LEN=6) :: CFTYP_BLD ! file type for BLD
CHARACTER(LEN=6) :: CFTYP_ROAD ! file type for ROAD
CHARACTER(LEN=6) :: CFTYP_BLD_HEIGHT ! file type for BLD_HEIGHT
@@ -233,21 +233,21 @@ REAL :: XUNIF_ROAD_DIR ! road direction (
!
REAL :: XUNIF_ALB_ROOF ! roof albedo (-)
REAL :: XUNIF_EMIS_ROOF ! roof emissivity (-)
- CHARACTER(LEN=28) :: CFNAM_ALB_ROOF ! file name for ALB_ROOF
- CHARACTER(LEN=28) :: CFNAM_EMIS_ROOF ! file name for EMIS_ROOF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ALB_ROOF ! file name for ALB_ROOF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_EMIS_ROOF ! file name for EMIS_ROOF
CHARACTER(LEN=6) :: CFTYP_ALB_ROOF ! file name for ALB_ROOF
CHARACTER(LEN=6) :: CFTYP_EMIS_ROOF ! file name for EMIS_ROOF
REAL, DIMENSION(NROOF_MAX) :: XUNIF_HC_ROOF ! roof layers heat capacity (J/K/m3)
REAL, DIMENSION(NROOF_MAX) :: XUNIF_TC_ROOF ! roof layers thermal conductivity (W/K/m)
REAL, DIMENSION(NROOF_MAX) :: XUNIF_D_ROOF ! depth of roof layers (m)
- CHARACTER(LEN=28), DIMENSION(NROOF_MAX) :: CFNAM_HC_ROOF ! file name for HC_ROOF
- CHARACTER(LEN=28), DIMENSION(NROOF_MAX) :: CFNAM_TC_ROOF ! file name for TC_ROOF
- CHARACTER(LEN=28), DIMENSION(NROOF_MAX) :: CFNAM_D_ROOF ! file name for D_ROOF
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NROOF_MAX) :: CFNAM_HC_ROOF ! file name for HC_ROOF
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NROOF_MAX) :: CFNAM_TC_ROOF ! file name for TC_ROOF
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NROOF_MAX) :: CFNAM_D_ROOF ! file name for D_ROOF
CHARACTER(LEN=6), DIMENSION(NROOF_MAX) :: CFTYP_HC_ROOF ! file type for HC_ROOF
CHARACTER(LEN=6), DIMENSION(NROOF_MAX) :: CFTYP_TC_ROOF ! file type for TC_ROOF
CHARACTER(LEN=6), DIMENSION(NROOF_MAX) :: CFTYP_D_ROOF ! file type for D_ROOF
REAL :: XUNIF_ROUGH_ROOF ! roof roughness coef
- CHARACTER(LEN=28) :: CFNAM_ROUGH_ROOF ! file name for ROUGH_ROOF
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ROUGH_ROOF ! file name for ROUGH_ROOF
CHARACTER(LEN=6) :: CFTYP_ROUGH_ROOF ! file type for ROUGH_ROOF
!
!
@@ -255,8 +255,8 @@ REAL :: XUNIF_ROUGH_ROOF ! roof roughness co
!
REAL :: XUNIF_ALB_ROAD ! road albedo (-)
REAL :: XUNIF_EMIS_ROAD ! road emissivity (-)
- CHARACTER(LEN=28) :: CFNAM_ALB_ROAD ! file name for ALB_ROAD
- CHARACTER(LEN=28) :: CFNAM_EMIS_ROAD ! file name for EMIS_ROAD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ALB_ROAD ! file name for ALB_ROAD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_EMIS_ROAD ! file name for EMIS_ROAD
CHARACTER(LEN=6) :: CFTYP_ALB_ROAD ! file type for ALB_ROAD
CHARACTER(LEN=6) :: CFTYP_EMIS_ROAD ! file type for EMIS_ROAD
REAL :: XUNIF_HC_COATING_ROAD ! road coating heat capacity (J/K/m3)
@@ -264,11 +264,11 @@ REAL :: XUNIF_TC_COATING_ROAD ! road coating
REAL :: XUNIF_D_COATING_ROAD ! depth of road coating (m)
REAL :: XUNIF_HC_BASEMENT_ROAD ! road coating heat capacity (J/K/m3)
REAL :: XUNIF_TC_BASEMENT_ROAD ! road coating thermal conductivity (W/K/m)
- CHARACTER(LEN=28) :: CFNAM_HC_COATING_ROAD ! file name for HC_ROAD
- CHARACTER(LEN=28) :: CFNAM_TC_COATING_ROAD ! file name for TC_ROAD
- CHARACTER(LEN=28) :: CFNAM_D_COATING_ROAD ! file name for D_ROAD
- CHARACTER(LEN=28) :: CFNAM_HC_BASEMENT_ROAD ! file name for HC_ROAD
- CHARACTER(LEN=28) :: CFNAM_TC_BASEMENT_ROAD ! file name for TC_ROAD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_HC_COATING_ROAD ! file name for HC_ROAD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TC_COATING_ROAD ! file name for TC_ROAD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_D_COATING_ROAD ! file name for D_ROAD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_HC_BASEMENT_ROAD ! file name for HC_ROAD
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_TC_BASEMENT_ROAD ! file name for TC_ROAD
CHARACTER(LEN=6) :: CFTYP_HC_COATING_ROAD ! file type for HC_ROAD
CHARACTER(LEN=6) :: CFTYP_TC_COATING_ROAD ! file type for TC_ROAD
CHARACTER(LEN=6) :: CFTYP_D_COATING_ROAD ! file type for D_ROAD
@@ -279,21 +279,21 @@ REAL :: XUNIF_TC_BASEMENT_ROAD ! road coating
!
REAL :: XUNIF_ALB_WALL ! wall albedo (-)
REAL :: XUNIF_EMIS_WALL ! wall emissivity (-)
- CHARACTER(LEN=28) :: CFNAM_ALB_WALL ! file name for ALB_WALL
- CHARACTER(LEN=28) :: CFNAM_EMIS_WALL ! file name for EMIS_WALL
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ALB_WALL ! file name for ALB_WALL
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_EMIS_WALL ! file name for EMIS_WALL
CHARACTER(LEN=6) :: CFTYP_ALB_WALL ! file type for ALB_WALL
CHARACTER(LEN=6) :: CFTYP_EMIS_WALL ! file type for EMIS_WALL
REAL, DIMENSION(NWALL_MAX) :: XUNIF_HC_WALL ! wall layers heat capacity (J/K/m3)
REAL, DIMENSION(NWALL_MAX) :: XUNIF_TC_WALL ! wall layers thermal conductivity (W/K/m)
REAL, DIMENSION(NWALL_MAX) :: XUNIF_D_WALL ! depth of wall layers (m)
- CHARACTER(LEN=28), DIMENSION(NWALL_MAX) :: CFNAM_HC_WALL ! file name for HC_WALL
- CHARACTER(LEN=28), DIMENSION(NWALL_MAX) :: CFNAM_TC_WALL ! file name for TC_WALL
- CHARACTER(LEN=28), DIMENSION(NWALL_MAX) :: CFNAM_D_WALL ! file name for D_WALL
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NWALL_MAX) :: CFNAM_HC_WALL ! file name for HC_WALL
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NWALL_MAX) :: CFNAM_TC_WALL ! file name for TC_WALL
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(NWALL_MAX) :: CFNAM_D_WALL ! file name for D_WALL
CHARACTER(LEN=6), DIMENSION(NWALL_MAX) :: CFTYP_HC_WALL ! file type for HC_WALL
CHARACTER(LEN=6), DIMENSION(NWALL_MAX) :: CFTYP_TC_WALL ! file type for TC_WALL
CHARACTER(LEN=6), DIMENSION(NWALL_MAX) :: CFTYP_D_WALL ! file type for D_WALL
REAL :: XUNIF_ROUGH_WALL ! wall roughness coef
- CHARACTER(LEN=28) :: CFNAM_ROUGH_WALL ! file name for ROUGH_WALL
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ROUGH_WALL ! file name for ROUGH_WALL
CHARACTER(LEN=6) :: CFTYP_ROUGH_WALL ! file type for ROUGH_WALL
!
! anthropogenic fluxes
@@ -306,10 +306,10 @@ REAL :: XUNIF_H_INDUSTRY ! anthropogenic se
! ! heat fluxes due to factories (W/m2)
REAL :: XUNIF_LE_INDUSTRY ! anthropogenic latent
! ! heat fluxes due to factories (W/m2)
- CHARACTER(LEN=28) :: CFNAM_H_TRAFFIC ! file name for H_TRAFFIC
- CHARACTER(LEN=28) :: CFNAM_LE_TRAFFIC ! file name for LE_TRAFFIC
- CHARACTER(LEN=28) :: CFNAM_H_INDUSTRY ! file name for H_INDUSTRY
- CHARACTER(LEN=28) :: CFNAM_LE_INDUSTRY ! file name for LE_INDUSTRY
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_H_TRAFFIC ! file name for H_TRAFFIC
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_LE_TRAFFIC ! file name for LE_TRAFFIC
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_H_INDUSTRY ! file name for H_INDUSTRY
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_LE_INDUSTRY ! file name for LE_INDUSTRY
CHARACTER(LEN=6) :: CFTYP_H_TRAFFIC ! file type for H_TRAFFIC
CHARACTER(LEN=6) :: CFTYP_LE_TRAFFIC ! file type for LE_TRAFFIC
CHARACTER(LEN=6) :: CFTYP_H_INDUSTRY ! file type for H_INDUSTRY
@@ -321,10 +321,10 @@ REAL :: XUNIF_EMIS_PANEL ! emissivity of s
REAL :: XUNIF_ALB_PANEL ! albedo of solar panel (-)
REAL :: XUNIF_EFF_PANEL ! efficiency of solar panel (-)
REAL :: XUNIF_FRAC_PANEL ! fraction of solar panel (-)
- CHARACTER(LEN=28) :: CFNAM_EMIS_PANEL ! file name for EMIS_PANEL
- CHARACTER(LEN=28) :: CFNAM_ALB_PANEL ! file name for ALB_PANEL
- CHARACTER(LEN=28) :: CFNAM_EFF_PANEL ! file name for EFF_PANEL
- CHARACTER(LEN=28) :: CFNAM_FRAC_PANEL ! file name for FRAC_PANEL
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_EMIS_PANEL ! file name for EMIS_PANEL
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_ALB_PANEL ! file name for ALB_PANEL
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_EFF_PANEL ! file name for EFF_PANEL
+ CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_FRAC_PANEL ! file name for FRAC_PANEL
CHARACTER(LEN=6) :: CFTYP_EMIS_PANEL ! file type for EMIS_PANEL
CHARACTER(LEN=6) :: CFTYP_ALB_PANEL ! file type for ALB_PANEL
CHARACTER(LEN=6) :: CFTYP_EFF_PANEL ! file type for EFF_PANEL
@@ -334,15 +334,15 @@ REAL :: XUNIF_FRAC_PANEL ! fraction of s
! New variables for CO2 flux calculus
!
REAL :: XUNIF_NB_POP ! uniform value for population per square kilometer
-CHARACTER(LEN=28) :: CFNAM_NB_POP ! file name for population per square kilometer
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_NB_POP ! file name for population per square kilometer
CHARACTER(LEN=6) :: CFTYP_NB_POP ! file type for population per square kilometer
!
REAL :: XUNIF_SFCO2_RD ! uniform value for CO2 flux link to traffic (roads) : (kg/m2 of town/s)
-CHARACTER(LEN=28) :: CFNAM_SFCO2_RD ! file name for CO2 flux link to traffic (roads) : (kg/m2 of town/s)
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFNAM_SFCO2_RD ! file name for CO2 flux link to traffic (roads) : (kg/m2 of town/s)
CHARACTER(LEN=6) :: CFTYP_SFCO2_RD ! file type for CO2 flux link to traffic (roads) : (kg/m2 of town/s)
!
REAL, DIMENSION(TOP%NTIME_CHANGE+1) :: XUNIF_DELTA_LEGAL_TIME ! uniform value for difference between UTC and legal time (in hour)
-CHARACTER(LEN=28), DIMENSION(TOP%NTIME_CHANGE+1) :: CFNAM_DELTA_LEGAL_TIME ! file name for difference between UTC and legal time (in hour)
+CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(TOP%NTIME_CHANGE+1) :: CFNAM_DELTA_LEGAL_TIME ! file name for difference between UTC and legal time (in hour)
CHARACTER(LEN=6), DIMENSION(TOP%NTIME_CHANGE+1) :: CFTYP_DELTA_LEGAL_TIME ! file type for difference between UTC and legal time (in hour)
!
INTEGER, PARAMETER :: NINFO_TIME=4 ! number of information needed to define the time (year, month, day, second)
@@ -527,73 +527,72 @@ XPAR_POP_MONTHLY = XUNDEF
XPAR_POP_DAILY = XUNDEF
XPAR_POP_HOURLY = XUNDEF
!
-CFNAM_BLDTYPE = ' '
-CFNAM_IND_BLD_AGE = ' '
-CFNAM_COL_BLD_AGE = ' '
-CFNAM_USETYPE = ' '
-CFNAM_P1TERRITORY = ' '
-CFNAM_PXTERRITORY = ' '
-CFNAM_FRACIHS = ' '
-CFNAM_FRACCHS = ' '
-CFNAM_FRACCOM = ' '
-CFNAM_FRACTER = ' '
-CFNAM_FRACIND = ' '
-CFNAM_FRACNHE = ' '
-CFNAM_FRACPAV = ' '
-CFNAM_FRACMRI = ' '
-CFNAM_FRACHRI = ' '
-CFNAM_FRACATB = ' '
-CFNAM_FOEQI_MAIS = ' '
-CFNAM_FOEQI_APPT = ' '
-CFNAM_FAEQI_MAIS = ' '
-CFNAM_FAEQI_APPT = ' '
-CFNAM_CRE_MAIS = ' '
-CFNAM_CRE_APPT = ' '
-CCSVFILEARCHI = ' '
-CCSVFILECOMPO = ' '
-CFNAM_BLD = ' '
-CFNAM_ROAD = ' '
-CFNAM_BLD_HEIGHT = ' '
-CFNAM_WALL_O_HOR = ' '
-CFNAM_Z0_TOWN = ' '
-CFNAM_ALB_ROOF (:) = ' '
-CFNAM_EMIS_ROOF(:) = ' '
-CFNAM_HC_ROOF (:) = ' '
-CFNAM_TC_ROOF (:) = ' '
-CFNAM_D_ROOF (:) = ' '
-CFNAM_ROUGH_ROOF(:) = ' '
-CFNAM_ROUGH_WALL(:) = ' '
-CFNAM_ALB_ROAD (:) = ' '
-CFNAM_EMIS_ROAD(:) = ' '
-CFNAM_HC_COATING_ROAD (:) = ' '
-CFNAM_TC_COATING_ROAD (:) = ' '
-CFNAM_D_COATING_ROAD (:) = ' '
-CFNAM_HC_BASEMENT_ROAD (:) = ' '
-CFNAM_TC_BASEMENT_ROAD (:) = ' '
-CFNAM_ALB_WALL (:) = ' '
-CFNAM_EMIS_WALL(:) = ' '
-CFNAM_HC_WALL (:) = ' '
-CFNAM_TC_WALL (:) = ' '
-CFNAM_D_WALL (:) = ' '
+CFNAM_BLDTYPE = ''
+CFNAM_IND_BLD_AGE = ''
+CFNAM_COL_BLD_AGE = ''
+CFNAM_USETYPE = ''
+CFNAM_P1TERRITORY = ''
+CFNAM_PXTERRITORY = ''
+CFNAM_FRACIHS = ''
+CFNAM_FRACCHS = ''
+CFNAM_FRACCOM = ''
+CFNAM_FRACTER = ''
+CFNAM_FRACIND = ''
+CFNAM_FRACNHE = ''
+CFNAM_FRACPAV = ''
+CFNAM_FRACMRI = ''
+CFNAM_FRACHRI = ''
+CFNAM_FRACATB = ''
+CFNAM_FOEQI_MAIS = ''
+CFNAM_FOEQI_APPT = ''
+CFNAM_FAEQI_MAIS = ''
+CFNAM_FAEQI_APPT = ''
+CFNAM_CRE_MAIS = ''
+CFNAM_CRE_APPT = ''
+CCSVFILEARCHI = ''
+CCSVFILECOMPO = ''
+CFNAM_BLD = ''
+CFNAM_ROAD = ''
+CFNAM_BLD_HEIGHT = ''
+CFNAM_WALL_O_HOR = ''
+CFNAM_Z0_TOWN = ''
+CFNAM_ALB_ROOF (:) = ''
+CFNAM_EMIS_ROOF(:) = ''
+CFNAM_HC_ROOF (:) = ''
+CFNAM_TC_ROOF (:) = ''
+CFNAM_D_ROOF (:) = ''
+CFNAM_ROUGH_ROOF(:) = ''
+CFNAM_ROUGH_WALL(:) = ''
+CFNAM_ALB_ROAD (:) = ''
+CFNAM_EMIS_ROAD(:) = ''
+CFNAM_HC_COATING_ROAD (:) = ''
+CFNAM_TC_COATING_ROAD (:) = ''
+CFNAM_D_COATING_ROAD (:) = ''
+CFNAM_HC_BASEMENT_ROAD (:) = ''
+CFNAM_TC_BASEMENT_ROAD (:) = ''
+CFNAM_ALB_WALL (:) = ''
+CFNAM_EMIS_WALL(:) = ''
+CFNAM_HC_WALL (:) = ''
+CFNAM_TC_WALL (:) = ''
+CFNAM_D_WALL (:) = ''
-CFNAM_H_TRAFFIC = ' '
-CFNAM_LE_TRAFFIC = ' '
-CFNAM_H_INDUSTRY = ' '
-CFNAM_LE_INDUSTRY = ' '
+CFNAM_H_TRAFFIC = ''
+CFNAM_LE_TRAFFIC = ''
+CFNAM_H_INDUSTRY = ''
+CFNAM_LE_INDUSTRY = ''
+CFNAM_GREENROOF = ''
+CFNAM_FRAC_HVEG = ''
+CFNAM_FRAC_LVEG = ''
+CFNAM_FRAC_NVEG = ''
+CFNAM_ROAD_DIR = ''
-CFNAM_GREENROOF = ' '
-CFNAM_FRAC_HVEG = ' '
-CFNAM_FRAC_LVEG = ' '
-CFNAM_FRAC_NVEG = ' '
-CFNAM_ROAD_DIR = ' '
-
-CFNAM_EMIS_PANEL = ' '
-CFNAM_ALB_PANEL = ' '
-CFNAM_EFF_PANEL = ' '
-CFNAM_FRAC_PANEL = ' '
-CFNAM_NB_POP = ' '
-CFNAM_SFCO2_RD = ' '
-CFNAM_DELTA_LEGAL_TIME= ' '
+CFNAM_EMIS_PANEL = ''
+CFNAM_ALB_PANEL = ''
+CFNAM_EFF_PANEL = ''
+CFNAM_FRAC_PANEL = ''
+CFNAM_NB_POP = ''
+CFNAM_SFCO2_RD = ''
+CFNAM_DELTA_LEGAL_TIME= ''
!
CFTYP_BLDTYPE = ' '
CFTYP_IND_BLD_AGE = ' '
diff --git a/src/SURFEX/pgd_teb_veg.F90 b/src/SURFEX/pgd_teb_veg.F90
index ee806ef552f872690685c304fdbd03399353ef98..12f598bc1ab084c03f244e0d68a7bb7046616606 100644
--- a/src/SURFEX/pgd_teb_veg.F90
+++ b/src/SURFEX/pgd_teb_veg.F90
@@ -59,7 +59,7 @@ USE MODD_ISBA_n, ONLY : ISBA_S_t, ISBA_K_t
USE MODD_DATA_ISBA_n, ONLY : DATA_ISBA_t
USE MODD_TEB_IRRIG_n, ONLY : TEB_IRRIG_t
USE MODD_SURFEX_n, ONLY : DATA_TEB_t
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_ISBA_PAR, ONLY : NOPTIMLAYER, XOPTIMGRID
!
USE MODI_GET_LUOUT
@@ -119,11 +119,11 @@ CHARACTER(LEN=3) :: YPHOTO ! photosynthesis option
LOGICAL :: GTR_ML ! new radiative transfert
CHARACTER(LEN=4) :: YALBEDO
REAL :: ZRM_PATCH ! threshold to remove little fractions of patches
-CHARACTER(LEN=28) :: YSAND ! file name for sand fraction
-CHARACTER(LEN=28) :: YCLAY ! file name for clay fraction
-CHARACTER(LEN=28) :: YCTI ! file name for topographic index
-CHARACTER(LEN=28) :: YRUNOFFB ! file name for runoffb parameter
-CHARACTER(LEN=28) :: YWDRAIN ! file name for wdrain parameter
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSAND ! file name for sand fraction
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCLAY ! file name for clay fraction
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCTI ! file name for topographic index
+CHARACTER(LEN=NFILENAMELGTMAX) :: YRUNOFFB ! file name for runoffb parameter
+CHARACTER(LEN=NFILENAMELGTMAX) :: YWDRAIN ! file name for wdrain parameter
CHARACTER(LEN=6) :: YSANDFILETYPE ! sand data file type
CHARACTER(LEN=6) :: YCLAYFILETYPE ! clay data file type
CHARACTER(LEN=6) :: YCTIFILETYPE ! topographic index data file type
@@ -140,9 +140,9 @@ REAL, DIMENSION(150) :: ZSOILGRID ! Soil layer thickness for DIF
!
! Not used in TEB garden
!
-CHARACTER(LEN=28) :: YSOC_TOP ! file name for organic carbon
-CHARACTER(LEN=28) :: YSOC_SUB ! file name for organic carbon
-CHARACTER(LEN=28) :: YPERM ! file name for permafrost distribution
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_TOP! file name for organic carbon
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_SUB! file name for organic carbon
+CHARACTER(LEN=NFILENAMELGTMAX) :: YPERM ! file name for permafrost distribution
CHARACTER(LEN=6) :: YSOCFILETYPE ! organic carbon data file type
CHARACTER(LEN=6) :: YPERMFILETYPE ! permafrost distribution data file type
REAL :: XUNIF_SOC_TOP ! uniform value of organic carbon top soil (kg/m2)
@@ -151,8 +151,8 @@ REAL :: XUNIF_PERM ! uniform permafrost distribution
LOGICAL :: LIMP_SOC ! Imposed maps of organic carbon
LOGICAL :: LIMP_PERM ! Imposed maps of permafrost distribution
LOGICAL :: GMEB ! Multi-energy balance (MEB)
-CHARACTER(LEN=28) :: YPH ! file name for pH
-CHARACTER(LEN=28) :: YFERT ! file name for fertilisation rate
+CHARACTER(LEN=NFILENAMELGTMAX) :: YPH ! file name for pH
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFERT ! file name for fertilisation rate
CHARACTER(LEN=6) :: YPHFILETYPE ! pH data file type
CHARACTER(LEN=6) :: YFERTFILETYPE ! fertilisation data file type
REAL :: XUNIF_PH ! uniform value of pH
diff --git a/src/SURFEX/pgd_topo_index.F90 b/src/SURFEX/pgd_topo_index.F90
index 9759a6fe35980d9e776d5c7c73d9dacc80436bdd..a2903bc157b9030cc2197bc2678a0c9fc3b1686e 100644
--- a/src/SURFEX/pgd_topo_index.F90
+++ b/src/SURFEX/pgd_topo_index.F90
@@ -58,7 +58,7 @@ USE MODD_PGDWORK, ONLY : XALL, XEXT_ALL, NSIZE_ALL, &
XMEAN_WORK, XSTD_WORK, &
XSKEW_WORK, NSIZE, XSUMVAL
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
!
USE MODD_SGH_PAR, ONLY : XREGP, XREGA
@@ -108,7 +108,7 @@ LOGICAL, INTENT(INOUT) :: OCTI
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
INTEGER, INTENT(IN) :: KLU ! number of nature points
-CHARACTER(LEN=28), INTENT(IN) :: HCTI ! topographic index file name
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HCTI ! topographic index file name
CHARACTER(LEN=6), INTENT(IN) :: HCTIFILETYPE ! topographic index file type
LOGICAL, INTENT(IN) :: OIMP_CTI ! .true. if topographic index statistics is imposed
!
@@ -477,7 +477,7 @@ REAL :: ZGLBLONMIN ! minimum longitude of data box in the fil
REAL :: ZGLBLATMAX ! maximum latitude of data box in the file
REAL :: ZGLBLONMAX ! maximum longitude of data box in the file
!
-CHARACTER(LEN=28) :: YFILEHDR ! Name of the field file header
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEHDR ! Name of the field file header
!
INTEGER :: INBLAT
INTEGER :: INBLON
diff --git a/src/SURFEX/pgd_tsz0_par.F90 b/src/SURFEX/pgd_tsz0_par.F90
index 5ee6a6549711a3cb9cec231937325fe0f6ed1d48..601b6a9e66e8389f7d0cd8a79f2d223c9d9ff797 100644
--- a/src/SURFEX/pgd_tsz0_par.F90
+++ b/src/SURFEX/pgd_tsz0_par.F90
@@ -85,8 +85,6 @@ INTEGER, PARAMETER :: NTIME_MAX = 37
!
REAL, DIMENSION(NTIME_MAX) :: XUNIF_DTS
REAL, DIMENSION(NTIME_MAX) :: XUNIF_DHUGRD
- CHARACTER(LEN=28), DIMENSION(NTIME_MAX) :: CFNAM_DTS
- CHARACTER(LEN=28), DIMENSION(NTIME_MAX) :: CFNAM_DHUGRD
CHARACTER(LEN=6), DIMENSION(NTIME_MAX) :: CFTYP_DTS
CHARACTER(LEN=6), DIMENSION(NTIME_MAX) :: CFTYP_DHUGRD
!
@@ -104,8 +102,6 @@ IF (LHOOK) CALL DR_HOOK('PGD_TSZ0_PAR',0,ZHOOK_HANDLE)
NTIME = 25
XUNIF_DTS (:) = -0.250
XUNIF_DHUGRD(:) = 0.0
-CFNAM_DTS (:) = ' '
-CFNAM_DHUGRD(:) = ' '
CFTYP_DTS (:) = ' '
CFTYP_DHUGRD(:) = ' '
!
diff --git a/src/SURFEX/prep_flake.F90 b/src/SURFEX/prep_flake.F90
index 4d3798c1a1139360fac955ebd8552116a8532060..4e83c62764d9210d900b1d4fdae8021d3a089d67 100644
--- a/src/SURFEX/prep_flake.F90
+++ b/src/SURFEX/prep_flake.F90
@@ -58,7 +58,7 @@ USE MODD_READ_NAMELIST,ONLY : LNAM_READ
USE MODD_SURF_ATM, ONLY : LVERTSHIFT
USE MODD_PREP, ONLY : XZS_LS
USE MODD_PREP_FLAKE, ONLY : LCLIM_LAKE
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODD_CSTS, ONLY : XTT
USE MODE_PREP_CTL, ONLY : PREP_CTL, PREP_CTL_CAN
@@ -87,11 +87,11 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
diff --git a/src/SURFEX/prep_flake_extern.F90 b/src/SURFEX/prep_flake_extern.F90
index 04f1b4820a533ae6eb38e7b587a9e1a7f57e7e98..40c2d9ce53cadf60d25bc445ba04897d2a2fc4c4 100644
--- a/src/SURFEX/prep_flake_extern.F90
+++ b/src/SURFEX/prep_flake_extern.F90
@@ -20,7 +20,7 @@ USE MODI_ABOR1_SFX
USE MODI_GET_LUOUT
!
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -33,10 +33,10 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
@@ -95,7 +95,7 @@ ENDIF
IF (IDIM_WATER==0) THEN
CALL GET_LUOUT(HPROGRAM,ILUOUT)
WRITE(ILUOUT,*) ' '
- WRITE(ILUOUT,*) 'No inland water data available in input file ',HFILE
+ WRITE(ILUOUT,*) 'No inland water data available in input file ',TRIM(HFILE)
WRITE(ILUOUT,*) 'Please change your input file '
WRITE(ILUOUT,*) ' or '
WRITE(ILUOUT,*) 'specify inland water temperature XTS_WATER_UNIF'
diff --git a/src/SURFEX/prep_flake_grib.F90 b/src/SURFEX/prep_flake_grib.F90
index 6af65bba6ad0593b2613455a38c8bf11ab55ef6d..edde694af2b69ecdf97d65c68336981b7dae4b85 100644
--- a/src/SURFEX/prep_flake_grib.F90
+++ b/src/SURFEX/prep_flake_grib.F90
@@ -35,6 +35,7 @@ USE MODE_READ_GRIB
USE MODD_TYPE_DATE_SURF
!
USE MODD_GRID_GRIB, ONLY : CGRIB_FILE, CINMODEL
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -46,7 +47,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_hor_flake_field.F90 b/src/SURFEX/prep_hor_flake_field.F90
index 350c8bc66c40295b60edb1003c2b399aebbe0f12..e07e3e03267dc8045fe0c69091056a17186231fa 100644
--- a/src/SURFEX/prep_hor_flake_field.F90
+++ b/src/SURFEX/prep_hor_flake_field.F90
@@ -41,7 +41,7 @@ USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
USE MODD_FLAKE_n, ONLY : FLAKE_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_TYPE_DATE_SURF, ONLY : DATE_TIME
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO, NCOMM, NPROC
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE, XZS_LS, CMASK
@@ -81,22 +81,22 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
INTEGER, INTENT(IN) :: KLAT
TYPE(FLAKE_t), INTENT(INOUT) :: F
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
-LOGICAL, OPTIONAL, INTENT(OUT) :: ONOVALUE ! flag for the not given value
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+LOGICAL, OPTIONAL, INTENT(OUT) :: ONOVALUE ! flag for the not given value
!
!
!* 0.2 declarations of local variables
!
- CHARACTER(LEN=6) :: YFILETYPE ! type of input file
- CHARACTER(LEN=28) :: YFILE ! name of file
- CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD ! name of file
- TYPE (DATE_TIME) :: TZTIME_GRIB ! current date and time
+ CHARACTER(LEN=6) :: YFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
+ CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
+ TYPE (DATE_TIME) :: TZTIME_GRIB ! current date and time
REAL, POINTER, DIMENSION(:,:) :: ZFIELDIN=>NULL() ! field to interpolate horizontally
REAL, ALLOCATABLE, DIMENSION(:,:) :: ZFIELDOUT ! field interpolated horizontally
INTEGER :: ILUOUT ! output listing logical unit
diff --git a/src/SURFEX/prep_hor_isba_cc_field.F90 b/src/SURFEX/prep_hor_isba_cc_field.F90
index 751e7164558d2740e77cdfac493cd1e3c50c0e9d..ea031234b2d2417eb07773cd5d7ed38b6e467960 100644
--- a/src/SURFEX/prep_hor_isba_cc_field.F90
+++ b/src/SURFEX/prep_hor_isba_cc_field.F90
@@ -50,7 +50,7 @@ USE MODD_PREP_ISBA, ONLY : LRESET_CSOIL
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO, NCOMM, NPROC
!
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF,NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_AGRI, ONLY : NVEG_IRR
!
USE MODE_PREP_CTL, ONLY : PREP_CTL, PREP_CTL_INT_PART2, PREP_CTL_INT_PART4
@@ -90,10 +90,10 @@ TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
INTEGER, INTENT(IN) :: KNI ! number of grid cell
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=8), INTENT(IN) :: HSURF ! type of field
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
-CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
@@ -111,9 +111,9 @@ TYPE(ISBA_PE_t), POINTER :: PEK
!
INTEGER,DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
CHARACTER(LEN=6) :: YFILETYPE ! type of input file
-CHARACTER(LEN=28) :: YFILE ! name of file
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
-CHARACTER(LEN=28) :: YFILEPGD ! name of file
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
REAL, POINTER, DIMENSION(:,:,:) :: ZFIELDIN ! field to interpolate horizontally
REAL, POINTER, DIMENSION(:,:,:) :: ZFIELDOUTP ! field interpolated horizontally
REAL, POINTER, DIMENSION(:,:,:) :: ZFIELDOUTV ! field interpolated horizontally
diff --git a/src/SURFEX/prep_hor_isba_esc_field.F90 b/src/SURFEX/prep_hor_isba_esc_field.F90
index 38967a2c1973e27e96ed1cb857f2f166332a9618..c686c0753a6b5858b72bd28f66239aacc982c779 100644
--- a/src/SURFEX/prep_hor_isba_esc_field.F90
+++ b/src/SURFEX/prep_hor_isba_esc_field.F90
@@ -49,7 +49,7 @@ USE MODD_PREP, ONLY : LINTERP, CMASK
USE MODD_PREP_ISBA, ONLY : LRESET_CSOIL, XGRID_SOIL
!
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF,NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_AGRI, ONLY : NVEG_IRR
!
USE MODE_PREP_CTL, ONLY : PREP_CTL, PREP_CTL_INT_PART2, PREP_CTL_INT_PART4
@@ -95,17 +95,17 @@ TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
INTEGER,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=8), INTENT(IN) :: HSURF ! type of field
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
-CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
CHARACTER(LEN=6) :: YFILETYPE ! type of input file
-CHARACTER(LEN=28) :: YFILE ! name of file
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
-CHARACTER(LEN=28) :: YFILEPGD ! name of file
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
!
REAL, POINTER, DIMENSION(:,:,:,:) :: ZFIELDIN ! field to interpolate horizontally
REAL, POINTER, DIMENSION(:,:,:,:) :: ZFIELDOUTP ! field interpolated horizontally
diff --git a/src/SURFEX/prep_hor_isba_field.F90 b/src/SURFEX/prep_hor_isba_field.F90
index 674cd3d6a817ac0b36c5fe6824a0f4c53b1d1396..1edeffb4d2b998aaba2e54333c272b73c3adf933 100644
--- a/src/SURFEX/prep_hor_isba_field.F90
+++ b/src/SURFEX/prep_hor_isba_field.F90
@@ -66,7 +66,7 @@ USE MODD_PREP_ISBA, ONLY : XGRID_SOIL, NGRID_LEVEL, LSNOW_IDEAL, &
!
USE MODD_ISBA_PAR, ONLY : XWGMIN
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF,NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
USE MODD_AGRI, ONLY : NVEG_IRR
!
USE MODE_PREP_CTL, ONLY : PREP_CTL, PREP_CTL_INT_PART2, PREP_CTL_INT_PART4
@@ -122,23 +122,23 @@ TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
INTEGER,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
LOGICAL, OPTIONAL, INTENT(INOUT):: OKEY
!
!* 0.2 declarations of local variables
!
- CHARACTER(LEN=6) :: YFILETYPE ! type of input file
- CHARACTER(LEN=28) :: YFILE ! name of file
+ CHARACTER(LEN=6) :: YFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
CHARACTER(LEN=6) :: YFILETYPE_SNOW ! type of input file
- CHARACTER(LEN=28) :: YFILE_SNOW ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE_SNOW ! name of file
CHARACTER(LEN=6) :: YFILEPGDTYPE_SNOW ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD_SNOW ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD_SNOW ! name of file
CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
REAL, POINTER, DIMENSION(:,:,:) :: ZFIELDIN ! field to interpolate horizontally
REAL, POINTER, DIMENSION(:,:,:) :: ZFIELDOUTP ! field interpolated horizontally
REAL, POINTER, DIMENSION(:,:,:) :: ZFIELDOUTV !
diff --git a/src/SURFEX/prep_hor_ocean_field.F90 b/src/SURFEX/prep_hor_ocean_field.F90
index 9bb9915bdcd0024ff43f0c185d13793cab996479..4136dd52c3a5beeb98983dbad6c3c31fa082c513 100644
--- a/src/SURFEX/prep_hor_ocean_field.F90
+++ b/src/SURFEX/prep_hor_ocean_field.F90
@@ -41,7 +41,7 @@ USE MODD_OCEAN_n, ONLY : OCEAN_t
USE MODD_OCEAN_REL_n, ONLY : OCEAN_REL_t
!
USE MODD_CSTS, ONLY : XTT
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_OCEAN_GRID, ONLY : NOCKMIN,NOCKMAX,XZHOC
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE, LINTERP
!
@@ -69,13 +69,13 @@ TYPE(OCEAN_REL_t), INTENT(INOUT) :: OR
INTEGER, INTENT(IN) :: KLAT
REAL, DIMENSION(:), INTENT(IN) :: PSEABATHY
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
-LOGICAL, INTENT(IN) :: OUNIF ! flag for prescribed uniform field
- CHARACTER(LEN=7) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HNCVARNAME!var to read
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+LOGICAL, INTENT(IN) :: OUNIF ! flag for prescribed uniform field
+ CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
+ CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HNCVARNAME!var to read
!
!
!* 0.2 declarations of local variables
diff --git a/src/SURFEX/prep_hor_ocean_fields.F90 b/src/SURFEX/prep_hor_ocean_fields.F90
index 2b9515b7d828433eb2c34dc1690ec50feba1bbc9..3e4932007168ac3bfa12ade6783ad2f9f3f78095 100644
--- a/src/SURFEX/prep_hor_ocean_fields.F90
+++ b/src/SURFEX/prep_hor_ocean_fields.F90
@@ -38,7 +38,7 @@ USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
USE MODD_OCEAN_n, ONLY : OCEAN_t
USE MODD_OCEAN_REL_n, ONLY : OCEAN_REL_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_OCEAN_CSTS, ONLY : XRHOSWREF
USE MODD_OCEAN_GRID, ONLY : XDZ1,XZHOC,NOCKMIN,NOCKMAX
!
@@ -64,8 +64,8 @@ INTEGER, INTENT(IN) :: KLAT
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
LOGICAL, INTENT(IN) :: OUNIF ! flag for prescribed uniform field
!
diff --git a/src/SURFEX/prep_hor_seaflux_field.F90 b/src/SURFEX/prep_hor_seaflux_field.F90
index d10cea8cb661815ea76543660a4142bfc68cb5fd..e2ecb744e7b66211ad59713e53f9267d63397c00 100644
--- a/src/SURFEX/prep_hor_seaflux_field.F90
+++ b/src/SURFEX/prep_hor_seaflux_field.F90
@@ -46,6 +46,7 @@ USE MODD_SEAFLUX_n, ONLY : SEAFLUX_t
USE MODD_TYPE_DATE_SURF, ONLY : DATE_TIME
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO, NCOMM, NPROC
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE, XZS_LS, CMASK
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODD_GRID_GRIB, ONLY : CINMODEL
!
@@ -89,19 +90,19 @@ INTEGER, INTENT(IN) :: KLAT
TYPE(SEAFLUX_t), INTENT(INOUT) :: S
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE ! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE ! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
- CHARACTER(LEN=6) :: YFILETYPE ! type of input file
- CHARACTER(LEN=28) :: YFILE ! name of file
- CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD ! name of file
+ CHARACTER(LEN=6) :: YFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
+ CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
REAL, POINTER, DIMENSION(:,:) :: ZFIELDIN ! field to interpolate horizontally
REAL, POINTER, DIMENSION(:,:) :: ZFIELDOUT ! field interpolated horizontally
TYPE (DATE_TIME) :: TZTIME_GRIB ! current date and time
@@ -109,7 +110,7 @@ INTEGER :: ILUOUT ! output listing logical unit
INTEGER :: INFOMPI, INL
!
LOGICAL :: GUNIF ! flag for prescribed uniform field
- CHARACTER (LEN=28) :: CLFILE
+ CHARACTER (LEN=NFILENAMELGTMAX) :: CLFILE
INTEGER :: IRESP
CHARACTER (LEN=100) :: CLCOMMENT
CHARACTER (LEN=6) :: CLSCHEME
diff --git a/src/SURFEX/prep_hor_snow_field.F90 b/src/SURFEX/prep_hor_snow_field.F90
index 934a2a66e7a62a7691e84f6b9f7306eea81248df..7399ec81688195fd5d1774820a0d7f8d9efb1606 100644
--- a/src/SURFEX/prep_hor_snow_field.F90
+++ b/src/SURFEX/prep_hor_snow_field.F90
@@ -68,6 +68,7 @@ USE MODD_PREP_SNOW, ONLY : XGRID_SNOW, NIMPUR
USE MODD_SURF_PAR, ONLY : XUNDEF
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
USE MODD_PREP, ONLY : LINTERP,CINTERP_TYPE,CINGRID_TYPE, CMASK
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE MODD_AGRI, ONLY : NVEG_IRR
!
@@ -110,10 +111,10 @@ TYPE(GRID_CONF_PROJ_t), INTENT(INOUT) :: GCP
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! file type
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
LOGICAL, INTENT(IN) :: OUNIF ! flag for prescribed uniform field
CHARACTER(LEN=10) :: HSNSURF ! type of field
diff --git a/src/SURFEX/prep_hor_snow_fields.F90 b/src/SURFEX/prep_hor_snow_fields.F90
index 15836e98c3c58e2a758b9fa01bceb72f83adc0fe..868dc1d6504d4e99b9dc391a2fc8efd301c262c4 100644
--- a/src/SURFEX/prep_hor_snow_fields.F90
+++ b/src/SURFEX/prep_hor_snow_fields.F90
@@ -53,7 +53,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
USE MODD_TYPE_SNOW
USE MODD_TYPE_DATE_SURF, ONLY : DATE_TIME
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_SNOW_PAR, ONLY : XAGLAMIN, XAGLAMAX
!
USE MODE_PREP_CTL, ONLY : PREP_CTL, PREP_CTL_INT_PART2, PREP_CTL_INT_PART4
@@ -86,10 +86,10 @@ TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! file type
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
LOGICAL, INTENT(IN) :: OUNIF ! flag for prescribed uniform field
INTEGER, INTENT(IN) :: KPATCH ! patch number for output scheme
diff --git a/src/SURFEX/prep_hor_teb_field.F90 b/src/SURFEX/prep_hor_teb_field.F90
index c613c36c204ce9e73cc4d8882cab4c3a14e7f5d3..b6e625203c26dc30bb41ce4b46ab66ec5a5a2c18 100644
--- a/src/SURFEX/prep_hor_teb_field.F90
+++ b/src/SURFEX/prep_hor_teb_field.F90
@@ -55,7 +55,7 @@ USE MODD_PREP_TEB, ONLY : XGRID_ROOF, XGRID_ROAD, XGRID_WALL, XGRID_FLOO
XHUI_BLD, XHUI_BLD_DEF
!
USE MODD_CSTS, ONLY : XG, XP00
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODE_PREP_CTL, ONLY : PREP_CTL, PREP_CTL_INT_PART2, PREP_CTL_INT_PART4
USE MODD_PREP_SNOW, ONLY : NIMPUR
@@ -98,10 +98,10 @@ TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
INTEGER, INTENT(IN) :: KPATCH
INTEGER,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
@@ -111,9 +111,9 @@ INTEGER,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
TYPE(NSURF_SNOW) :: TNPSNOW
!
CHARACTER(LEN=6) :: YFILETYPE ! type of input file
- CHARACTER(LEN=28) :: YFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
REAL, DIMENSION(:), ALLOCATABLE :: ZSG1SNOW, ZSG2SNOW, ZHISTSNOW, ZAGESNOW
REAL, DIMENSION(:,:), ALLOCATABLE :: ZIMPURSNOW
REAL, POINTER, DIMENSION(:,:) :: ZFIELDIN ! field to interpolate horizontally
diff --git a/src/SURFEX/prep_hor_teb_garden_field.F90 b/src/SURFEX/prep_hor_teb_garden_field.F90
index 839be56d9b6728bf09849ecd4ff60ed87aecdb53..cb5219f583ca5e570a1ad1e797ba70e4b809bdb4 100644
--- a/src/SURFEX/prep_hor_teb_garden_field.F90
+++ b/src/SURFEX/prep_hor_teb_garden_field.F90
@@ -59,7 +59,7 @@ USE MODD_PREP_TEB_GARDEN, ONLY : XGRID_SOIL, NGRID_LEVEL, &
!
USE MODD_ISBA_PAR, ONLY : XWGMIN
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_AGRI, ONLY : NVEG_IRR
USE MODD_PREP_SNOW, ONLY : NIMPUR
!
@@ -109,26 +109,26 @@ TYPE(GRID_t), INTENT(INOUT) :: TG
TYPE(TEB_OPTIONS_t), INTENT(INOUT) :: TOP
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
-INTEGER,DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+INTEGER, DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
INTEGER, INTENT(IN) :: KPATCH
!
!* 0.2 declarations of local variables
!
- CHARACTER(LEN=6) :: YFILETYPE ! type of input file
- CHARACTER(LEN=28) :: YFILE ! name of file
- CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD ! name of file
- CHARACTER(LEN=6) :: YFILETYPE_SNOW ! type of input file
- CHARACTER(LEN=28) :: YFILE_SNOW ! name of file
- CHARACTER(LEN=6) :: YFILEPGDTYPE_SNOW ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD_SNOW ! name of file
+ CHARACTER(LEN=6) :: YFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
+ CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
+ CHARACTER(LEN=6) :: YFILETYPE_SNOW ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE_SNOW ! name of file
+ CHARACTER(LEN=6) :: YFILEPGDTYPE_SNOW ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD_SNOW ! name of file
REAL, POINTER, DIMENSION(:,:,:) :: ZFIELDIN=>NULL() ! field to interpolate horizontally
REAL, POINTER, DIMENSION(:,:) :: ZFIELDIN_2D=>NULL() ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_hor_teb_greenroof_field.F90 b/src/SURFEX/prep_hor_teb_greenroof_field.F90
index 8bb313bbcd47d88f849a9d44b9d36788dc5fe32d..ba765f85df3e97a8368d34ed65d9f8511efaec4f 100644
--- a/src/SURFEX/prep_hor_teb_greenroof_field.F90
+++ b/src/SURFEX/prep_hor_teb_greenroof_field.F90
@@ -57,7 +57,7 @@ USE MODD_PREP_TEB_GREENROOF, ONLY : XGRID_SOIL, NGRID_LEVEL,
XAGESNOW_GR, XASNOW_GR, LSNOW_IDEAL_GR
USE MODD_ISBA_PAR, ONLY : XWGMIN
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_AGRI, ONLY : NVEG_IRR
USE MODD_PREP_SNOW, ONLY : NIMPUR
!
@@ -111,23 +111,23 @@ TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
INTEGER,DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
INTEGER, INTENT(IN) :: KPATCH
!
!* 0.2 declarations of local variables
!
- CHARACTER(LEN=6) :: YFILETYPE ! type of input file
- CHARACTER(LEN=28) :: YFILE ! name of file
- CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD ! name of file
- CHARACTER(LEN=6) :: YFILETYPE_SNOW ! type of input file
- CHARACTER(LEN=28) :: YFILE_SNOW ! name of file
- CHARACTER(LEN=6) :: YFILEPGDTYPE_SNOW ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD_SNOW ! name of file
+ CHARACTER(LEN=6) :: YFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
+ CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
+ CHARACTER(LEN=6) :: YFILETYPE_SNOW ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE_SNOW ! name of file
+ CHARACTER(LEN=6) :: YFILEPGDTYPE_SNOW ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD_SNOW ! name of file
REAL, POINTER, DIMENSION(:,:,:) :: ZFIELDIN=>NULL() ! field to interpolate horizontally
!
TYPE(NSURF_SNOW) :: TNPSNOW
diff --git a/src/SURFEX/prep_hor_watflux_field.F90 b/src/SURFEX/prep_hor_watflux_field.F90
index 9b6bdcd2f16f7b2d569dbd35695a4498d33b3dd3..8977fcbfff577d43ab6780993d00a244834441a2 100644
--- a/src/SURFEX/prep_hor_watflux_field.F90
+++ b/src/SURFEX/prep_hor_watflux_field.F90
@@ -38,6 +38,7 @@ USE MODD_WATFLUX_n, ONLY : WATFLUX_t
!
USE MODD_TYPE_DATE_SURF, ONLY : DATE_TIME
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO, NCOMM, NPROC
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE, XZS_LS, CMASK
!
@@ -74,20 +75,20 @@ INTEGER, INTENT(IN) :: KLAT
TYPE(WATFLUX_t), INTENT(INOUT) :: W
TYPE (PREP_CTL), INTENT (INOUT) :: YDCTL
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE ! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE ! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
- CHARACTER(LEN=6) :: YFILETYPE ! type of input file
- CHARACTER(LEN=28) :: YFILE ! name of file
- CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
- CHARACTER(LEN=28) :: YFILEPGD ! name of file
- TYPE (DATE_TIME) :: TZTIME_GRIB ! current date and time
+ CHARACTER(LEN=6) :: YFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! name of file
+ CHARACTER(LEN=6) :: YFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! name of file
+ TYPE (DATE_TIME) :: TZTIME_GRIB ! current date and time
REAL, POINTER, DIMENSION(:,:) :: ZFIELDIN ! field to interpolate horizontally
REAL, POINTER, DIMENSION(:,:) :: ZFIELDOUT ! field interpolated horizontally
INTEGER :: ILUOUT ! output listing logical unit
diff --git a/src/SURFEX/prep_inland_water.F90 b/src/SURFEX/prep_inland_water.F90
index d9e6db5ef561f79e296c1977bcf9b4afb1973c68..2b6459e1469a9ec80a812f862cf7a75edb8e3d97 100644
--- a/src/SURFEX/prep_inland_water.F90
+++ b/src/SURFEX/prep_inland_water.F90
@@ -40,6 +40,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
USE MODI_PREP_WATFLUX
@@ -65,11 +67,11 @@ TYPE(FLAKE_MODEL_t), INTENT(INOUT) :: FM
TYPE(WATFLUX_MODEL_t), INTENT(INOUT) :: WM
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE ! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE ! type of the Atmospheric file
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
diff --git a/src/SURFEX/prep_isba.F90 b/src/SURFEX/prep_isba.F90
index 3e4206d8beeaa16d7612a0f0f14fe8e959750b07..8290a43f318e9b460120e23775e1288cd84f9116 100644
--- a/src/SURFEX/prep_isba.F90
+++ b/src/SURFEX/prep_isba.F90
@@ -73,7 +73,7 @@ USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE, NVT_SNOW
USE MODD_SNOW_PAR, ONLY : XEMISSN
USE MODD_ISBA_PAR, ONLY : XWGMIN
USE MODD_CO2V_PAR, ONLY : XANFMINIT
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_AGRI, ONLY : NVEG_IRR
!
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
@@ -129,12 +129,12 @@ TYPE(ISBA_NPE_t), INTENT(INOUT) :: NPE
!
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
-INTEGER,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
-CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
-CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+INTEGER, DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
+CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE ! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE ! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
diff --git a/src/SURFEX/prep_isba_cc_extern.F90 b/src/SURFEX/prep_isba_cc_extern.F90
index 237c2dd23ff8ea958658c7319d3c303b04c7d7fd..4a4ac494fee60262d701472a6caa2e69f43ea141 100644
--- a/src/SURFEX/prep_isba_cc_extern.F90
+++ b/src/SURFEX/prep_isba_cc_extern.F90
@@ -32,7 +32,7 @@ USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
!
USE MODI_PREP_GRID_EXTERN
USE MODI_READ_SURF
@@ -51,10 +51,10 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=8), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally (on final soil grid)
LOGICAL, INTENT(INOUT):: OPREP_AGS
diff --git a/src/SURFEX/prep_isba_esc_extern.F90 b/src/SURFEX/prep_isba_esc_extern.F90
index dd4525ed6aa87e7cce9517e0daab383b816d1036..29eaf9886a4fc8bd63511c5074e85ea3b3b8e3bf 100644
--- a/src/SURFEX/prep_isba_esc_extern.F90
+++ b/src/SURFEX/prep_isba_esc_extern.F90
@@ -31,7 +31,7 @@ USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
!
USE MODI_PREP_GRID_EXTERN
USE MODI_READ_SURF
@@ -50,10 +50,10 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=8), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:,:,:), POINTER :: PFIELD ! field to interpolate horizontally (on final soil grid)
LOGICAL, INTENT(INOUT):: OPREP
diff --git a/src/SURFEX/prep_isba_extern.F90 b/src/SURFEX/prep_isba_extern.F90
index c429c5ad2eb4b33e47e05f47c97e17100036021b..1112846acd9a2610b78381e6e9b8e59f0849871c 100644
--- a/src/SURFEX/prep_isba_extern.F90
+++ b/src/SURFEX/prep_isba_extern.F90
@@ -39,7 +39,7 @@ USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
USE MODD_SURFEX_MPI, ONLY : NRANK,NPIO
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
USE MODD_PREP_ISBA, ONLY : XGRID_SOIL, XWR_DEF
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
!
USE MODE_READ_EXTERN
!
@@ -68,10 +68,10 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
INTEGER,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally (on final soil grid)
LOGICAL, OPTIONAL, INTENT(INOUT):: OKEY
diff --git a/src/SURFEX/prep_isba_grib.F90 b/src/SURFEX/prep_isba_grib.F90
index f21f91208b3ac31fd80b7418aec91cbf4ba012e6..808c54026f9673feb9a3549af501b5652720bb3b 100644
--- a/src/SURFEX/prep_isba_grib.F90
+++ b/src/SURFEX/prep_isba_grib.F90
@@ -36,7 +36,7 @@ USE MODI_INTERP_GRID_NAT
!
USE MODD_PREP_ISBA, ONLY : XGRID_SOIL, XWR_DEF, XWRV_DEF, &
XWRVN_DEF, XQC_DEF
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_GRID_GRIB, ONLY : CGRIB_FILE, NNI, CINMODEL
!
!
@@ -51,7 +51,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
-CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally
LOGICAL, OPTIONAL, INTENT(INOUT) :: OKEY
diff --git a/src/SURFEX/prep_isba_netcdf.F90 b/src/SURFEX/prep_isba_netcdf.F90
index 1f2294226a3f1a7b7268a5165045f8843197b9d3..db89434784166787bc027c26b1040de9d8517afc 100644
--- a/src/SURFEX/prep_isba_netcdf.F90
+++ b/src/SURFEX/prep_isba_netcdf.F90
@@ -37,7 +37,7 @@ use modd_netcdf_sfx, only: IDCDF_KIND
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO
USE MODD_PREP, ONLY : CINTERP_TYPE
!
@@ -63,7 +63,7 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_nature.F90 b/src/SURFEX/prep_nature.F90
index 4351418b5d2bd149c196fcf2a10217f4b5a4c3a5..e4a27c5558e79fadc36fb47012f0282ed903a9b8 100644
--- a/src/SURFEX/prep_nature.F90
+++ b/src/SURFEX/prep_nature.F90
@@ -38,6 +38,8 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
USE MODI_PREP_ISBA
@@ -58,11 +60,11 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE ! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE ! type of the Atmospheric file
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
diff --git a/src/SURFEX/prep_ocean_ascllv.F90 b/src/SURFEX/prep_ocean_ascllv.F90
index 0ef584a77dae14be5d530d240fb93f0b673dec01..64cf21bb98e61ebe751314d652b2813e4b2c632b 100644
--- a/src/SURFEX/prep_ocean_ascllv.F90
+++ b/src/SURFEX/prep_ocean_ascllv.F90
@@ -50,6 +50,7 @@ USE MODD_PREP, ONLY : CINTERP_TYPE
USE MODD_PGD_GRID, ONLY : NL,LLATLONMASK,CGRID,XGRID_PAR,NGRID_PAR
USE MODD_OCEAN_GRID , ONLY : NOCKMAX
USE MODD_PGDWORK, ONLY : CATYPE
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODI_OPEN_FILE
USE MODI_CLOSE_FILE
@@ -78,9 +79,9 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
INTEGER, INTENT(IN) :: KLUOUT ! output listing logical unit
-!CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HNCVARNAME!var to read
+!CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HNCVARNAME!var to read
REAL, POINTER, DIMENSION(:,:,:) :: PFIELD ! field to interpolate horizontally
!
!
diff --git a/src/SURFEX/prep_ocean_netcdf.F90 b/src/SURFEX/prep_ocean_netcdf.F90
index bff8843c14b595d3b0e2f8607ea67f6672ec3302..00f9a15a3ea66bce5d14e0a27ce70c399bcfca05 100644
--- a/src/SURFEX/prep_ocean_netcdf.F90
+++ b/src/SURFEX/prep_ocean_netcdf.F90
@@ -30,6 +30,7 @@ SUBROUTINE PREP_OCEAN_NETCDF(HPROGRAM,HSURF,HFILE,HFILETYPE,&
!
USE MODD_PREP, ONLY : CINTERP_TYPE, CINGRID_TYPE
USE MODD_GRID_LATLONREGUL, ONLY : NILENGTH, NINDEPTH, XILONARRAY
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODE_READ_NETCDF_MERCATOR
!
@@ -43,10 +44,10 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
INTEGER, INTENT(IN) :: KLUOUT ! output listing logical unit
- CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HNCVARNAME!var to read
+ CHARACTER(LEN=28), INTENT(IN), OPTIONAL :: HNCVARNAME!var to read
REAL, POINTER, DIMENSION(:,:,:) :: PFIELD ! field to interpolate horizontally
!
!* 0.2 declarations of local variables
diff --git a/src/SURFEX/prep_sea.F90 b/src/SURFEX/prep_sea.F90
index 3ac99637d119cc517ae1bb144feac03770a4e6a9..53aab67a43b1a2c3add13537bea48cf00aa62dfd 100644
--- a/src/SURFEX/prep_sea.F90
+++ b/src/SURFEX/prep_sea.F90
@@ -38,6 +38,8 @@ USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
USE MODI_PREP_SEAFLUX
@@ -57,11 +59,11 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
TYPE(SEAFLUX_MODEL_t), INTENT(INOUT) :: SM
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
diff --git a/src/SURFEX/prep_seaflux.F90 b/src/SURFEX/prep_seaflux.F90
index f84de95ff4a55c17996b6c0a6aea83f5883e90d2..96101b6f6929f51e8ac7f6e13633f6bd3bfea8ae 100644
--- a/src/SURFEX/prep_seaflux.F90
+++ b/src/SURFEX/prep_seaflux.F90
@@ -58,6 +58,7 @@ USE MODN_PREP_SEAFLUX
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
USE MODD_PREP, ONLY : XZS_LS
USE MODD_SURF_ATM, ONLY : LVERTSHIFT
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
@@ -83,11 +84,11 @@ TYPE(OCEAN_t), INTENT(INOUT) :: O
TYPE(OCEAN_REL_t), INTENT(INOUT) :: OR
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
-CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
-CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
diff --git a/src/SURFEX/prep_seaflux_extern.F90 b/src/SURFEX/prep_seaflux_extern.F90
index e003e2e6e5ed202bb755559bdb3a0ebf61bc7073..14476db4ab0c2d26d5b531f21d953df7a84d9260 100644
--- a/src/SURFEX/prep_seaflux_extern.F90
+++ b/src/SURFEX/prep_seaflux_extern.F90
@@ -10,6 +10,7 @@ SUBROUTINE PREP_SEAFLUX_EXTERN (GCP,HPROGRAM,HSURF,HFILE,HFILETYPE,HFILEPGD,HFIL
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
USE MODD_SURFEX_MPI, ONLY : NRANK,NPIO
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODD_TYPE_DATE_SURF
!
@@ -32,10 +33,10 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_seaflux_grib.F90 b/src/SURFEX/prep_seaflux_grib.F90
index f4ee510ad67f87f25be2a57db850b76a59782361..8ac5cae6c74e3080c9cab842ba4eff3ff069f6bf 100644
--- a/src/SURFEX/prep_seaflux_grib.F90
+++ b/src/SURFEX/prep_seaflux_grib.F90
@@ -33,6 +33,7 @@ SUBROUTINE PREP_SEAFLUX_GRIB(HPROGRAM,HSURF,HFILE,KLUOUT,PFIELD)
USE MODE_READ_GRIB
!
USE MODD_GRID_GRIB, ONLY : CGRIB_FILE, NNI, CINMODEL
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -43,7 +44,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_seaflux_netcdf.F90 b/src/SURFEX/prep_seaflux_netcdf.F90
index 3fdd63de806130a474dbdd6e46c3e8a3bbb4f6a8..34e9ea9bbac9e74f86d732cf34a00f5fb1cf269b 100644
--- a/src/SURFEX/prep_seaflux_netcdf.F90
+++ b/src/SURFEX/prep_seaflux_netcdf.F90
@@ -37,6 +37,7 @@ USE MODE_READ_NETCDF_MERCATOR
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO, NCOMM, NPROC
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
USE MODD_GRID_LATLONREGUL, ONLY : NILENGTH,NINDEPTH
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -52,7 +53,7 @@ INCLUDE "mpif.h"
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_seaice.F90 b/src/SURFEX/prep_seaice.F90
index 192d7df5fa996ca94985931076322709e181a285..9a35799928abda79c1e58ec62a06cf7333931de3 100644
--- a/src/SURFEX/prep_seaice.F90
+++ b/src/SURFEX/prep_seaice.F90
@@ -40,7 +40,7 @@ USE MODD_SEAFLUX_n, ONLY : SEAFLUX_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODI_GET_LUOUT
USE MODI_GET_TYPE_DIM_N
USE MODI_GLTOOLS_READNAM
@@ -77,11 +77,11 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
-CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
-CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
diff --git a/src/SURFEX/prep_snow_extern.F90 b/src/SURFEX/prep_snow_extern.F90
index 6c84e717c0ba1f6c35ecd27b5737e324aa770fbe..b92872c0737e133812f9ff9b6ea4164d1e8abc12 100644
--- a/src/SURFEX/prep_snow_extern.F90
+++ b/src/SURFEX/prep_snow_extern.F90
@@ -47,7 +47,7 @@ USE MODD_TYPE_SNOW
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
USE MODD_PREP_SNOW, ONLY : XGRID_SNOW, NGRID_LEVEL
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
USE MODD_CSTS, ONLY : XTT
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -75,10 +75,10 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=10), INTENT(IN) :: HSURF ! type of field
-CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
-CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of file
-CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
-CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally
LOGICAL, INTENT(INOUT) :: OSNOW_IDEAL
diff --git a/src/SURFEX/prep_snow_grib.F90 b/src/SURFEX/prep_snow_grib.F90
index 39a918ecdd66d3c15525b975b7700153c8b301a6..1051eee7cabeff8e332af7390251d8a0a4120129 100644
--- a/src/SURFEX/prep_snow_grib.F90
+++ b/src/SURFEX/prep_snow_grib.F90
@@ -34,7 +34,7 @@ USE MODE_READ_GRIB
USE MODD_TYPE_DATE_SURF
!
USE MODD_PREP_SNOW, ONLY : NGRID_LEVEL, XGRID_SNOW
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_GRID_GRIB, ONLY : CGRIB_FILE, NNI, CINMODEL
USE MODD_SNOW_PAR, ONLY : XANSMIN, XANSMAX, XRHOSMAX
USE MODD_CSTS, ONLY : XTT
@@ -49,7 +49,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=10), INTENT(IN) :: HSURF ! type of field
-CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
INTEGER, INTENT(IN) :: KLAYER ! Number of layer of output snow scheme
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally
diff --git a/src/SURFEX/prep_surf_atm.F90 b/src/SURFEX/prep_surf_atm.F90
index cd7a3a3e8cfa2d9033ac00b6ebca0083ce9291d2..6f90c7b1c9d79c7bab075d7a7478b3052bec81a8 100644
--- a/src/SURFEX/prep_surf_atm.F90
+++ b/src/SURFEX/prep_surf_atm.F90
@@ -1,7 +1,8 @@
-!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!SFX_LIC Copyright 2004-2023 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!SFX_LIC for details. version 1.
+!-----------------------------------------------------------------
! #################################################################################
SUBROUTINE PREP_SURF_ATM (YSC, HPROGRAM,HATMFILE,HATMFILETYPE,HPGDFILE,HPGDFILETYPE,YDCTL)
! #################################################################################
@@ -33,6 +34,8 @@ SUBROUTINE PREP_SURF_ATM (YSC, HPROGRAM,HATMFILE,HATMFILETYPE,HPGDFILE,HPGDFILET
!
USE MODD_SURFEX_n, ONLY : SURFEX_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
USE MODI_PREP_NATURE
@@ -54,16 +57,16 @@ IMPLICIT NONE
TYPE(SURFEX_t), INTENT(INOUT) :: YSC
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
!* 0.2 declarations of local variables
- CHARACTER(LEN=28) :: YATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YATMFILE ! name of the Atmospheric file
CHARACTER(LEN=6) :: YATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28) :: YPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YPGDFILE ! name of the Atmospheric file
CHARACTER(LEN=6) :: YPGDFILETYPE! type of the Atmospheric file
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -76,13 +79,13 @@ IF (LHOOK) CALL DR_HOOK('PREP_SURF_ATM',0,ZHOOK_HANDLE)
IF ( LEN_TRIM(HATMFILE)>0 ) THEN
YATMFILE=HATMFILE
ELSE
- YATMFILE=' '
+ YATMFILE=''
ENDIF
!
IF ( LEN_TRIM(HPGDFILE)>0 ) THEN
YPGDFILE=HPGDFILE
ELSE
- YPGDFILE=' '
+ YPGDFILE=''
ENDIF
!
IF ( LEN_TRIM(HATMFILETYPE)>0 ) THEN
diff --git a/src/SURFEX/prep_teb.F90 b/src/SURFEX/prep_teb.F90
index 046dbdcf7de40ca22d02ebb9d3677f3c36c6b880..b4057032cba591b18b8d5cea0a9d11b170da45b4 100644
--- a/src/SURFEX/prep_teb.F90
+++ b/src/SURFEX/prep_teb.F90
@@ -67,6 +67,7 @@ USE MODD_PREP_TEB_GREENROOF, ONLY : XWSNOW_GR, XRSNOW_GR, XTSNOW_GR, XLWCSNOW_GR
XAGESNOW_GR
!
USE MODD_SURF_ATM, ONLY : LVERTSHIFT
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -96,12 +97,12 @@ TYPE(TEB_HYDRO_MODEL_t), INTENT(INOUT) :: HM
!
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
-INTEGER,DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+INTEGER, DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
diff --git a/src/SURFEX/prep_teb_extern.F90 b/src/SURFEX/prep_teb_extern.F90
index a454066d1e2310c47c6b55f1b5d4aa8f867cd60f..201550544f4c38987030a4ade10c1610c67b6bda 100644
--- a/src/SURFEX/prep_teb_extern.F90
+++ b/src/SURFEX/prep_teb_extern.F90
@@ -19,6 +19,7 @@ USE MODD_BEM_OPTION_n, ONLY : BEM_OPTIONS_t
!
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO
USE MODD_TYPE_DATE_SURF
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODI_PREP_GRID_EXTERN
USE MODI_READ_SURF
@@ -51,10 +52,10 @@ TYPE(BEM_OPTIONS_t), INTENT(INOUT) :: BOP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
INTEGER, INTENT(IN) :: KPATCH
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
diff --git a/src/SURFEX/prep_teb_garden.F90 b/src/SURFEX/prep_teb_garden.F90
index e899185cfe969aa18485184836c059cbc3ad11db..2395ddbbaa68ded739e60d931653cd94a798b8ba 100644
--- a/src/SURFEX/prep_teb_garden.F90
+++ b/src/SURFEX/prep_teb_garden.F90
@@ -62,7 +62,7 @@ USE MODD_SURF_ATM, ONLY : LVERTSHIFT
USE MODD_CSTS, ONLY : XTT, XG, XRD, XP00
USE MODD_ISBA_PAR, ONLY : XWGMIN
USE MODD_CO2V_PAR, ONLY : XANFMINIT, XCA_NIT, XCC_NIT
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
@@ -97,10 +97,10 @@ TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
INTEGER, DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
-CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
INTEGER, INTENT(IN) :: KPATCH
!
diff --git a/src/SURFEX/prep_teb_garden_extern.F90 b/src/SURFEX/prep_teb_garden_extern.F90
index aea7b595e49ff34f4829e95072cda44fa12ca228..1858c97dee2f2fae55b15cc716547131226055d7 100644
--- a/src/SURFEX/prep_teb_garden_extern.F90
+++ b/src/SURFEX/prep_teb_garden_extern.F90
@@ -53,7 +53,7 @@ USE MODI_MAKE_CHOICE_ARRAY
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
USE MODD_PREP_TEB_GARDEN,ONLY : XGRID_SOIL, XWR_DEF
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
USE MODD_AGRI, ONLY : NVEG_IRR
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -74,10 +74,10 @@ TYPE(GRID_CONF_PROJ_t), INTENT(INOUT) :: GCP
INTEGER,DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
INTEGER, INTENT(IN) :: KPATCH
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally (on final soil grid)
diff --git a/src/SURFEX/prep_teb_garden_grib.F90 b/src/SURFEX/prep_teb_garden_grib.F90
index 40dff4d0659c57a570589df5e96c10ba5bc2d45a..d601e9c13715d7bf10534eb4048f302b1d68d936 100644
--- a/src/SURFEX/prep_teb_garden_grib.F90
+++ b/src/SURFEX/prep_teb_garden_grib.F90
@@ -37,7 +37,7 @@ USE MODD_TYPE_DATE_SURF
USE MODI_INTERP_GRID_NAT
!
USE MODD_PREP_TEB_GARDEN,ONLY : XGRID_SOIL, XWR_DEF
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_GRID_GRIB, ONLY : CGRIB_FILE, NNI, CINMODEL
!
!
@@ -52,7 +52,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_teb_greenroof.F90 b/src/SURFEX/prep_teb_greenroof.F90
index 9c2de8e308524460ade15d34da56d74b7c938a9f..a755ffb16c8341a164e8240048835da51326f489 100644
--- a/src/SURFEX/prep_teb_greenroof.F90
+++ b/src/SURFEX/prep_teb_greenroof.F90
@@ -55,7 +55,7 @@ USE MODD_CSTS, ONLY : XTT, XG, XRD, XP00
USE MODD_SNOW_PAR, ONLY : XZ0SN
USE MODD_ISBA_PAR, ONLY : XWGMIN
USE MODD_CO2V_PAR, ONLY : XCC_NIT, XCA_NIT, XANFMINIT
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
@@ -87,12 +87,12 @@ TYPE(GRID_t), INTENT(INOUT) :: TG
TYPE(TEB_OPTIONS_t), INTENT(INOUT) :: TOP
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
-INTEGER,DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
-CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
-CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
-CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+INTEGER ,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
+CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
INTEGER, INTENT(IN) :: KPATCH
!
diff --git a/src/SURFEX/prep_teb_greenroof_extern.F90 b/src/SURFEX/prep_teb_greenroof_extern.F90
index c579375a7d252c523471147b165bc285e849fcaa..aa096d26710366c80ce3ee19c7b86cfb585a4c86 100644
--- a/src/SURFEX/prep_teb_greenroof_extern.F90
+++ b/src/SURFEX/prep_teb_greenroof_extern.F90
@@ -54,7 +54,7 @@ USE MODI_MAKE_CHOICE_ARRAY
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
USE MODD_PREP_TEB_GREENROOF, ONLY : XGRID_SOIL, XWR_DEF
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
USE MODD_AGRI, ONLY : NVEG_IRR
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -75,10 +75,10 @@ TYPE(GRID_CONF_PROJ_t), INTENT(INOUT) :: GCP
INTEGER,DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
INTEGER, INTENT(IN) :: KPATCH
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally (on final soil grid)
diff --git a/src/SURFEX/prep_teb_greenroof_grib.F90 b/src/SURFEX/prep_teb_greenroof_grib.F90
index abf4f19298774cecc3ed6e6a09cc075994674ca5..400ed283bf5e86b4648b39935337a1c84ce10eca 100644
--- a/src/SURFEX/prep_teb_greenroof_grib.F90
+++ b/src/SURFEX/prep_teb_greenroof_grib.F90
@@ -38,7 +38,7 @@ USE MODI_INTERP_GRID_NAT
!
USE MODD_PREP_TEB_GREENROOF, ONLY : XGRID_SOIL, XWR_DEF
USE MODD_DATA_COVER_PAR, ONLY : NVEGTYPE
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_GRID_GRIB, ONLY : CGRIB_FILE, NNI, CINMODEL
!
!
@@ -53,7 +53,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_teb_grib.F90 b/src/SURFEX/prep_teb_grib.F90
index d07285f900d9cfa0918516c23d1452c05a9ea3b7..638e6393251e76ae820a12a44ba2e8a0bf5e422c 100644
--- a/src/SURFEX/prep_teb_grib.F90
+++ b/src/SURFEX/prep_teb_grib.F90
@@ -36,7 +36,7 @@ USE MODI_INTERP_GRID
USE MODD_GRID_GRIB, ONLY : CGRIB_FILE, NNI, CINMODEL
USE MODD_PREP_TEB, ONLY : XGRID_ROAD, XGRID_WALL, XGRID_ROOF, &
XTI_BLD, XTDEEP_TEB, XTI_BLD_DEF
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
!
!USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -48,7 +48,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_town.F90 b/src/SURFEX/prep_town.F90
index 42ddb0873cd320bf083f771c7ee5489641d5809c..2d66a1c053a37410b4e72e6b3dbef6ed546b8ddd 100644
--- a/src/SURFEX/prep_town.F90
+++ b/src/SURFEX/prep_town.F90
@@ -43,6 +43,8 @@ USE MODD_SURFEX_n, ONLY : TEB_GARDEN_MODEL_t
USE MODD_SURFEX_n, ONLY : TEB_GREENROOF_MODEL_t
USE MODD_SURFEX_n, ONLY : TEB_HYDRO_MODEL_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
USE MODI_PREP_TEB
@@ -66,12 +68,12 @@ TYPE(TEB_GREENROOF_MODEL_t), INTENT(INOUT) :: GRM
TYPE(TEB_HYDRO_MODEL_t), INTENT(INOUT) :: HM
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
-INTEGER,DIMENSION(:),INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+INTEGER ,DIMENSION(:), INTENT(IN) :: NPAR_VEG_IRR_USE ! vegtype with irrigation
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
diff --git a/src/SURFEX/prep_watflux.F90 b/src/SURFEX/prep_watflux.F90
index 1246fd4b6a99cdee7df30f49218fa91ae9765041..bcfa48e6ceb099f8e774c8b79c31b5412a568395 100644
--- a/src/SURFEX/prep_watflux.F90
+++ b/src/SURFEX/prep_watflux.F90
@@ -50,6 +50,7 @@ USE MODD_READ_NAMELIST, ONLY : LNAM_READ
USE MODN_PREP_WATFLUX
USE MODD_PREP, ONLY : XZS_LS
USE MODD_SURF_ATM, ONLY : LVERTSHIFT
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODE_PREP_CTL, ONLY : PREP_CTL
!
@@ -74,11 +75,11 @@ TYPE(WATFLUX_t), INTENT(INOUT) :: W
TYPE(CANOPY_t), INTENT(INOUT) :: SB
TYPE (PREP_CTL), INTENT(INOUT) :: YDCTL
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! name of the Atmospheric file
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! type of the Atmospheric file
!
!* 0.2 declarations of local variables
!
diff --git a/src/SURFEX/prep_watflux_extern.F90 b/src/SURFEX/prep_watflux_extern.F90
index 85599fc30da094238f721f5fc70a17866ea5b427..96d73e347092e2702b0cf7dacc44e0f977d4fd99 100644
--- a/src/SURFEX/prep_watflux_extern.F90
+++ b/src/SURFEX/prep_watflux_extern.F90
@@ -21,7 +21,7 @@ USE MODI_CLOSE_AUX_IO_SURF
USE MODI_ABOR1_SFX
USE MODI_GET_LUOUT
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -34,10 +34,10 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
- CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! type of input file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of input file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/prep_watflux_grib.F90 b/src/SURFEX/prep_watflux_grib.F90
index 40899d1d51a00e40490fcfc5799fa75760d0f65f..af85502c6ec6c6ff886a5f41c0dc2d460fbad386 100644
--- a/src/SURFEX/prep_watflux_grib.F90
+++ b/src/SURFEX/prep_watflux_grib.F90
@@ -33,6 +33,7 @@ USE MODE_READ_GRIB
USE MODD_TYPE_DATE_SURF
!
USE MODD_GRID_GRIB, ONLY : CGRIB_FILE, CINMODEL
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -43,7 +44,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
CHARACTER(LEN=7), INTENT(IN) :: HSURF ! type of field
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
REAL,DIMENSION(:,:), POINTER :: PFIELD ! field to interpolate horizontally
!
diff --git a/src/SURFEX/read_ascllv.F90 b/src/SURFEX/read_ascllv.F90
index aefd7a16eaa8d3865e06468e43e40d8d2ec1c5f7..681aaec7b0b8fa0ed8628edd4bd3993f59287d9c 100644
--- a/src/SURFEX/read_ascllv.F90
+++ b/src/SURFEX/read_ascllv.F90
@@ -35,6 +35,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_PGD_GRID, ONLY : LLATLONMASK
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE MODI_OPEN_FILE
USE MODI_CLOSE_FILE
@@ -57,7 +58,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
!
!
!* 0.2 Declaration of local variables
diff --git a/src/SURFEX/read_binllv.F90 b/src/SURFEX/read_binllv.F90
index 12027951eabce3628442b6a4a962d9f010ca96c6..3df079311fc749a74d42cdff350365ba84da472f 100644
--- a/src/SURFEX/read_binllv.F90
+++ b/src/SURFEX/read_binllv.F90
@@ -35,6 +35,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_PGD_GRID, ONLY : LLATLONMASK
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
#ifdef SFX_MNH
use modd_precision, only: MNHINT32
@@ -60,7 +61,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
!
!
!* 0.2 Declaration of local variables
diff --git a/src/SURFEX/read_binllvfast.F90 b/src/SURFEX/read_binllvfast.F90
index 93359d3f96383fe22bd4b09b52f34c9c680784bd..412196b65ec4a9bee0301e4f0aaff7f2de14cf56 100644
--- a/src/SURFEX/read_binllvfast.F90
+++ b/src/SURFEX/read_binllvfast.F90
@@ -38,7 +38,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGD_GRID, ONLY : LLATLONMASK
!
USE MODI_OPEN_FILE
@@ -62,7 +62,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
!
!
!* 0.2 Declaration of local variables
diff --git a/src/SURFEX/read_csvdata_archi_teb.F90 b/src/SURFEX/read_csvdata_archi_teb.F90
index 8634f7045a6a201b694ebc4f93b6bb7114b66382..5240a31885d6aefdfa620287e6f61496905381ea 100644
--- a/src/SURFEX/read_csvdata_archi_teb.F90
+++ b/src/SURFEX/read_csvdata_archi_teb.F90
@@ -37,7 +37,7 @@ SUBROUTINE READ_CSVDATA_ARCHI_TEB(BDD, HPROGRAM, HFILE)
! -----------
!
USE MODD_BLD_DESCRIPTION_n, ONLY : BLD_DESC_t
- USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+ USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_OPEN_NAMELIST
USE MODI_CLOSE_NAMELIST
@@ -55,7 +55,7 @@ SUBROUTINE READ_CSVDATA_ARCHI_TEB(BDD, HPROGRAM, HFILE)
!
TYPE(BLD_DESC_t), INTENT(INOUT) :: BDD
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file to read
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file to read
!
!* 0.2 Declaration of local variables
! ------------------------------
@@ -1429,7 +1429,7 @@ CONTAINS
! Read definitions in .csv file
!
CHARACTER(LEN=6) , INTENT(IN) :: HPROGRAM
- CHARACTER(LEN=28), INTENT(IN) :: HFILE
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE
CHARACTER(LEN=*) , INTENT(IN) :: YNAME
!
INTEGER, INTENT(OUT) :: NTP
diff --git a/src/SURFEX/read_csvdata_compo_teb.F90 b/src/SURFEX/read_csvdata_compo_teb.F90
index 24fcd9ab4de98b0969b291a6c3ae936f63ea04ba..d3f5a97f284d23bb3710843b860fc8b2d2573ecb 100644
--- a/src/SURFEX/read_csvdata_compo_teb.F90
+++ b/src/SURFEX/read_csvdata_compo_teb.F90
@@ -36,7 +36,7 @@ SUBROUTINE READ_CSVDATA_COMPO_TEB(BDD, HPROGRAM, HFILE)
USE MODD_BLD_DESCRIPTION_n, ONLY : BLD_DESC_t
!
USE MODD_CSTS, ONLY : XSURF_EPSILON
- USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+ USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_OPEN_NAMELIST
USE MODI_CLOSE_NAMELIST
@@ -54,7 +54,7 @@ SUBROUTINE READ_CSVDATA_COMPO_TEB(BDD, HPROGRAM, HFILE)
!
TYPE(BLD_DESC_t), INTENT(INOUT) :: BDD
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! file to read
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! file to read
!
!* 0.2 Declaration of local variables
! ------------------------------
diff --git a/src/SURFEX/read_direct.F90 b/src/SURFEX/read_direct.F90
index 48a7486d715fe97e96385f509d71455d561d3d9f..b0d16fb88101972f05fcc4025ad3141abf82eed5 100644
--- a/src/SURFEX/read_direct.F90
+++ b/src/SURFEX/read_direct.F90
@@ -79,6 +79,7 @@ USE MODD_PGDWORK, ONLY : NSIZE_ALL, XALL, NVALNBR, NVALCOUNT, XVALLIST, &
USE MODI_REFRESH_PGDWORK
!
USE MODD_CSTS ,ONLY : XSURF_EPSILON
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
IMPLICIT NONE
!
@@ -92,15 +93,15 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
CHARACTER(LEN=6), INTENT(IN) :: HSCHEME ! Scheme treated
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
CHARACTER(LEN=20), INTENT(IN) :: HFIELD ! Name of the field.
LOGICAL, OPTIONAL, INTENT(IN) :: OMULTITYPE
!
!* 0.2 Declaration of local variables
! ------------------------------
!
- CHARACTER(LEN=28) :: YFILENAME ! Name of the field file without header
- CHARACTER(LEN=28) :: YFILEHDR ! Name of the field file header
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILENAME ! Name of the field file without header
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEHDR ! Name of the field file header
!
CHARACTER(LEN=7) :: YTYPE ! type of numerical field stored in the
! ! direct access file ('INTEGER','REAL ')
diff --git a/src/SURFEX/read_direct_gauss.F90 b/src/SURFEX/read_direct_gauss.F90
index 2ac8e4b30803691d9bf56430f024926bc2f190aa..f203b058789f7bebfca717e8cb060c2a944f38ad 100644
--- a/src/SURFEX/read_direct_gauss.F90
+++ b/src/SURFEX/read_direct_gauss.F90
@@ -76,6 +76,7 @@ USE MODD_PGDWORK, ONLY : NSIZE_ALL, XALL, NVALNBR, NVALCOUNT, XVALLIST, &
USE MODI_REFRESH_PGDWORK
!
USE MODD_CSTS, ONLY : XSURF_EPSILON
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
IMPLICIT NONE
!
@@ -89,15 +90,15 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
CHARACTER(LEN=6), INTENT(IN) :: HSCHEME ! Scheme treated
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
CHARACTER(LEN=20), INTENT(IN) :: HFIELD ! Name of the field.
LOGICAL, OPTIONAL, INTENT(IN) :: OMULTITYPE
!
!* 0.2 Declaration of local variables
! ------------------------------
!
- CHARACTER(LEN=28) :: YFILENAME ! Name of the field file without header
- CHARACTER(LEN=28) :: YFILEHDR ! Name of the field file header
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILENAME ! Name of the field file without header
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEHDR ! Name of the field file header
!
CHARACTER(LEN=7) :: YTYPE ! type of numerical field stored in the
! ! direct access file ('INTEGER','REAL ')
diff --git a/src/SURFEX/read_flake_date.F90 b/src/SURFEX/read_flake_date.F90
index 3abff4b80167fdc158cd48216b649a180b9c48f2..3bb0ab40dc2a2017f6570ad3fbe69c3172020a95 100644
--- a/src/SURFEX/read_flake_date.F90
+++ b/src/SURFEX/read_flake_date.F90
@@ -44,7 +44,7 @@
!
!
USE MODD_TYPE_DATE_SURF
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_READ_PRE_FLAKE_DAT_CONF
USE MODI_READ_PRE_SURFA_DAT_CONF
@@ -65,7 +65,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
CHARACTER(LEN=3), INTENT(IN) :: HINIT ! fields to initialize 'ALL', 'PRE', 'PGD'
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
INTEGER, INTENT(IN) :: KYEAR ! current year (UTC)
INTEGER, INTENT(IN) :: KMONTH ! current month (UTC)
@@ -81,11 +81,11 @@ INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! file name
CHARACTER(LEN=6) :: YFILETYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGD ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! file name
CHARACTER(LEN=6) :: YFILEPGDTYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGDIN ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGDIN ! file name
CHARACTER(LEN=6) :: YFILEPGDINTYPE ! file type
!
LOGICAL :: GUNIF ! flag for prescribed uniform field
@@ -94,10 +94,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('READ_FLAKE_DATE',0,ZHOOK_HANDLE)
-YFILE = ' '
+YFILE = ''
YFILETYPE = ' '
!
-YFILEPGDIN = ' '
+YFILEPGDIN = ''
YFILEPGDINTYPE = ' '
!
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/read_from_surfex_file.F90 b/src/SURFEX/read_from_surfex_file.F90
index e9ca0dcebe9d4760c386360a75c1965da621bc56..c78798f9261b6eece0dd447f77135745754c4d0b 100644
--- a/src/SURFEX/read_from_surfex_file.F90
+++ b/src/SURFEX/read_from_surfex_file.F90
@@ -10,7 +10,7 @@ SUBROUTINE READ_FROM_SURFEX_FILE (DTCO, U, &
!
USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
-USE MODD_SURF_PAR, ONLY : LEN_HREC
+USE MODD_SURF_PAR, ONLY : LEN_HREC, NFILENAMELGTMAX
!
USE MODI_INIT_IO_SURF_n
USE MODI_END_IO_SURF_n
@@ -41,13 +41,13 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
!
CHARACTER(LEN=6), INTENT(IN) :: HFTYP
- CHARACTER(LEN=28), INTENT(IN) :: HFNAM
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFNAM
CHARACTER(LEN=6), INTENT(IN) :: HMASK
CHARACTER(LEN=6), INTENT(IN) :: HSCHEME
REAL, DIMENSION(:), INTENT(OUT) :: PFIELD
CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: HNAM
!
- CHARACTER(LEN=28) :: HNAME
+ CHARACTER(LEN=NFILENAMELGTMAX) :: HNAME
CHARACTER(LEN=LEN_HREC) :: YRECFM
INTEGER :: IRESP, I0
!
diff --git a/src/SURFEX/read_isba_date.F90 b/src/SURFEX/read_isba_date.F90
index 363dfc4cf2d35f96709418fa8b8392d955bf7123..7e401b1aa9896f0a0b447ac4c661ff266a0b060a 100644
--- a/src/SURFEX/read_isba_date.F90
+++ b/src/SURFEX/read_isba_date.F90
@@ -44,7 +44,7 @@
!
!
USE MODD_TYPE_DATE_SURF
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_READ_PREP_ISBA_DATE_CONF
USE MODI_READ_PRE_SURFA_DAT_CONF
@@ -65,7 +65,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
CHARACTER(LEN=3), INTENT(IN) :: HINIT ! fields to initialize 'ALL', 'PRE', 'PGD'
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
INTEGER, INTENT(IN) :: KYEAR ! current year (UTC)
INTEGER, INTENT(IN) :: KMONTH ! current month (UTC)
@@ -78,11 +78,11 @@ INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! file name
CHARACTER(LEN=6) :: YFILETYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGD ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! file name
CHARACTER(LEN=6) :: YFILEPGDTYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGDIN ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGDIN ! file name
CHARACTER(LEN=6) :: YFILEPGDINTYPE ! file type
!
LOGICAL :: GUNIF ! flag for prescribed uniform field
@@ -91,10 +91,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('READ_ISBA_DATE',0,ZHOOK_HANDLE)
-YFILE = ' '
+YFILE = ''
YFILETYPE = ' '
!
-YFILEPGDIN = ' '
+YFILEPGDIN = ''
YFILEPGDINTYPE = ' '
!
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/read_latlon.F90 b/src/SURFEX/read_latlon.F90
index 2ad17afae18277c774e33624da8918d4d9dae3f1..07449e14239b78e61f141b722a887bc582523d5a 100644
--- a/src/SURFEX/read_latlon.F90
+++ b/src/SURFEX/read_latlon.F90
@@ -45,6 +45,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
USE MODD_PGD_GRID, ONLY : XMESHLENGTH
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
@@ -73,7 +74,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
CHARACTER(LEN=6), INTENT(IN) :: HSCHEME ! Scheme treated
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
!
!* 0.2 Declaration of local variables read in the data file head
! ---------------------------------------------------------
diff --git a/src/SURFEX/read_nam_pgd_cover.F90 b/src/SURFEX/read_nam_pgd_cover.F90
index 5f5f3930794f9eb9bbd1375383ea8d70c284c468..e55ff9ee2619e0995560c6c271d155741e882ece 100644
--- a/src/SURFEX/read_nam_pgd_cover.F90
+++ b/src/SURFEX/read_nam_pgd_cover.F90
@@ -41,6 +41,7 @@
! -----------
!
USE MODD_DATA_COVER_PAR, ONLY : NCOVER
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
@@ -58,7 +59,7 @@ IMPLICIT NONE
! ------------------------
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
-CHARACTER(LEN=28), INTENT(OUT) :: HCOVER ! file name for cover types
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HCOVER ! file name for cover types
CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! data file type
REAL, DIMENSION(:), INTENT(OUT) :: PUNIF_COVER ! value of each cover (cover will be uniform on the horizontal)
REAL, INTENT(OUT) :: PRM_COVER ! limit of coverage under which the cover is removed. Default is 1.E-6
@@ -84,7 +85,7 @@ LOGICAL :: GFOUND ! flag when namelist is present
REAL, DIMENSION(NCOVER) :: XUNIF_COVER ! value of each cover (cover will be
! uniform on the horizontal)
!
-CHARACTER(LEN=28) :: YCOVER ! file name for cover types
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCOVER ! file name for cover types
CHARACTER(LEN=6) :: YCOVERFILETYPE ! data file type
REAL :: XRM_COVER ! limit of coverage under which the
! cover is removed. Default is 1.E-6
@@ -118,7 +119,7 @@ NAMELIST/NAM_COVER/ YCOVER, YCOVERFILETYPE, XUNIF_COVER, XRM_COVER, XRM_COAST,
!
IF (LHOOK) CALL DR_HOOK('READ_NAM_PGD_COVER',0,ZHOOK_HANDLE)
XUNIF_COVER(:) = 0.
-YCOVER = ' '
+YCOVER = ''
YCOVERFILETYPE = ' '
XRM_COVER = 1.E-6
XRM_COAST = 1.0
diff --git a/src/SURFEX/read_nam_pgd_dms.F90 b/src/SURFEX/read_nam_pgd_dms.F90
index 2cccb4f88d551934257adb9c72b8ed47f12338f0..ccc8ef36042abf34dbb6b77618803d3b8a47be72 100644
--- a/src/SURFEX/read_nam_pgd_dms.F90
+++ b/src/SURFEX/read_nam_pgd_dms.F90
@@ -46,6 +46,7 @@ USE MODI_CLOSE_NAMELIST
!
USE MODE_POS_SURF
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -72,7 +73,7 @@ INTEGER, INTENT(OUT) :: KDMS_NBR
! ! 'BLD' : where buildings are present
CHARACTER(LEN=3), DIMENSION(1000), INTENT(OUT) :: HDMS_ATYPE ! avg type for megan pgd fields
! ! 'ARI' , 'INV'
- CHARACTER(LEN=28), DIMENSION(1000), INTENT(OUT) :: HDMS_FILE ! data files
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000), INTENT(OUT) :: HDMS_FILE ! data files
CHARACTER(LEN=6), DIMENSION(1000), INTENT(OUT) :: HDMS_FILETYPE ! type of these files
!
!
@@ -102,8 +103,8 @@ INTEGER :: NDMS_NBR
! ! 'BLD' : where buildings are present
CHARACTER(LEN=3), DIMENSION(1000) :: CDMS_ATYPE ! avg type for megan pgd fields
! ! 'ARI' , 'INV'
- CHARACTER(LEN=28), DIMENSION(1000) :: CDMS_FILE ! data files
- CHARACTER(LEN=6), DIMENSION(1000) :: CDMS_FILETYPE ! type of these files
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000) :: CDMS_FILE ! data files
+ CHARACTER(LEN=6), DIMENSION(1000) :: CDMS_FILETYPE ! type of these files
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
NAMELIST/NAM_DMS_PGD/ NDMS_NBR, CDMS_NAME, CDMS_AREA, &
@@ -117,7 +118,7 @@ IF (LHOOK) CALL DR_HOOK('READ_NAM_PGD_DMS',0,ZHOOK_HANDLE)
NDMS_NBR = 0
!
CDMS_NAME = " "
-CDMS_FILE = " "
+CDMS_FILE = ""
CDMS_FILETYPE = " "
CDMS_AREA = "ALL"
CDMS_ATYPE = "ARI"
diff --git a/src/SURFEX/read_nam_pgd_dummy.F90 b/src/SURFEX/read_nam_pgd_dummy.F90
index 971832bcbf33ad1699e72ca05a6cba2f1c85a65f..f8f73b90bd2f8012b29fa88517e1de94aeb18bc1 100644
--- a/src/SURFEX/read_nam_pgd_dummy.F90
+++ b/src/SURFEX/read_nam_pgd_dummy.F90
@@ -46,6 +46,7 @@ USE MODI_CLOSE_NAMELIST
!
USE MODE_POS_SURF
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -72,8 +73,8 @@ INTEGER, INTENT(OUT) :: KDUMMY_NBR
! ! 'BLD' : where buildings are present
CHARACTER(LEN=3), DIMENSION(1000), INTENT(OUT) :: HDUMMY_ATYPE ! avg type for dummy pgd fields
! ! 'ARI' , 'INV'
- CHARACTER(LEN=28), DIMENSION(1000), INTENT(OUT) :: HDUMMY_FILE ! data files
- CHARACTER(LEN=6), DIMENSION(1000), INTENT(OUT) :: HDUMMY_FILETYPE ! type of these files
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000), INTENT(OUT) :: HDUMMY_FILE ! data files
+ CHARACTER(LEN=6), DIMENSION(1000), INTENT(OUT) :: HDUMMY_FILETYPE ! type of these files
!
!
!* 0.2 Declaration of local variables
@@ -102,7 +103,7 @@ INTEGER :: NDUMMY_NBR
! ! 'BLD' : where buildings are present
CHARACTER(LEN=3), DIMENSION(1000) :: CDUMMY_ATYPE ! avg type for dummy pgd fields
! ! 'ARI' , 'INV'
- CHARACTER(LEN=28), DIMENSION(1000) :: CDUMMY_FILE ! data files
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000) :: CDUMMY_FILE ! data files
CHARACTER(LEN=6), DIMENSION(1000) :: CDUMMY_FILETYPE ! type of these files
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
@@ -117,7 +118,7 @@ IF (LHOOK) CALL DR_HOOK('READ_NAM_PGD_DUMMY',0,ZHOOK_HANDLE)
NDUMMY_NBR = 0
!
CDUMMY_NAME = " "
-CDUMMY_FILE = " "
+CDUMMY_FILE = ""
CDUMMY_FILETYPE = " "
CDUMMY_AREA = "ALL"
CDUMMY_ATYPE = "ARI"
diff --git a/src/SURFEX/read_nam_pgd_isba.F90 b/src/SURFEX/read_nam_pgd_isba.F90
index e2b3d257220c01ed82da94f6859f549d5a0d1398..b9b4f75570117ee3e37f6ca85c374c4dcca3d56c 100644
--- a/src/SURFEX/read_nam_pgd_isba.F90
+++ b/src/SURFEX/read_nam_pgd_isba.F90
@@ -56,7 +56,7 @@
!* 0. DECLARATION
! -----------
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
@@ -82,12 +82,12 @@ INTEGER, INTENT(OUT) :: KGROUND_LAYER ! number of soil layers
LOGICAL, INTENT(OUT) :: OTR_ML ! new radiative transfert
CHARACTER(LEN=4), INTENT(OUT) :: HALBEDO
REAL, INTENT(OUT) :: PRM_PATCH ! threshold to remove little fractions of patches
- CHARACTER(LEN=28), INTENT(OUT) :: HSAND ! file name for sand fraction
- CHARACTER(LEN=28), INTENT(OUT) :: HCLAY ! file name for clay fraction
- CHARACTER(LEN=28), INTENT(OUT) :: HCTI ! file name for topographic index
- CHARACTER(LEN=28), INTENT(OUT) :: HPERM ! file name for permafrost distribution
- CHARACTER(LEN=28), INTENT(OUT) :: HRUNOFFB ! file name for runoffb parameter
- CHARACTER(LEN=28), INTENT(OUT) :: HWDRAIN ! file name for wdrain parameter
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HSAND ! file name for sand fraction
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HCLAY ! file name for clay fraction
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HCTI ! file name for topographic index
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HPERM ! file name for permafrost distribution
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HRUNOFFB ! file name for runoffb parameter
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HWDRAIN ! file name for wdrain parameter
CHARACTER(LEN=6), INTENT(OUT) :: HSANDFILETYPE ! sand data file type
CHARACTER(LEN=6), INTENT(OUT) :: HCLAYFILETYPE ! clay data file type
CHARACTER(LEN=6), INTENT(OUT) :: HCTIFILETYPE ! topographic index data file type
@@ -104,15 +104,15 @@ LOGICAL, INTENT(OUT) :: OIMP_CLAY ! Imposed values for Clay
LOGICAL, INTENT(OUT) :: OIMP_CTI ! Imposed values for topographic index statistics
LOGICAL, INTENT(OUT) :: OMEB ! MEB
LOGICAL, INTENT(OUT) :: OIMP_PERM ! Imposed maps of permafrost distribution
- CHARACTER(LEN=28), INTENT(OUT) :: HSOC_TOP ! file name for organic carbon
- CHARACTER(LEN=28), INTENT(OUT) :: HSOC_SUB ! file name for organic carbon
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HSOC_TOP ! file name for organic carbon
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HSOC_SUB ! file name for organic carbon
CHARACTER(LEN=6), INTENT(OUT) :: HSOCFILETYPE ! organic carbon data file type
REAL, INTENT(OUT) :: PUNIF_SOC_TOP ! uniform value of organic carbon top soil (kg/m2)
REAL, INTENT(OUT) :: PUNIF_SOC_SUB ! uniform value of organic carbon sub soil (kg/m2)
LOGICAL, INTENT(OUT) :: OIMP_SOC ! Imposed maps of organic carbon
REAL, DIMENSION(:), INTENT(OUT) :: PSOILGRID ! Soil layer thickness for DIF
- CHARACTER(LEN=28), INTENT(OUT) :: HPH ! file name for pH
- CHARACTER(LEN=28), INTENT(OUT) :: HFERT ! file name for fertilisation rate
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HPH ! file name for pH
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFERT ! file name for fertilisation rate
CHARACTER(LEN=6), INTENT(OUT) :: HPHFILETYPE ! pH data file type
CHARACTER(LEN=6), INTENT(OUT) :: HFERTFILETYPE ! fertilisation data file type
REAL, INTENT(OUT) :: PUNIF_PH ! uniform value of pH
@@ -138,14 +138,14 @@ INTEGER :: NGROUND_LAYER ! number of soil layers
LOGICAL :: LTR_ML ! new radiative transfert
CHARACTER(LEN=4) :: CALBEDO
REAL :: XRM_PATCH ! threshold to remove little fractions of patches
- CHARACTER(LEN=28) :: YSAND ! file name for sand fraction
- CHARACTER(LEN=28) :: YCLAY ! file name for clay fraction
- CHARACTER(LEN=28) :: YCTI ! file name for topographic index
- CHARACTER(LEN=28) :: YPERM ! file name for permafrost distribution
- CHARACTER(LEN=28) :: YRUNOFFB ! file name for runoffb parameter
- CHARACTER(LEN=28) :: YWDRAIN ! file name for wdrain parameter
- CHARACTER(LEN=28) :: YPH ! file name for pH
- CHARACTER(LEN=28) :: YFERT ! file name for fertilisation rate
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YSAND ! file name for sand fraction
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YCLAY ! file name for clay fraction
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YCTI ! file name for topographic index
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YPERM ! file name for permafrost distribution
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YRUNOFFB ! file name for runoffb parameter
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YWDRAIN ! file name for wdrain parameter
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YPH ! file name for pH
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFERT ! file name for fertilisation rate
CHARACTER(LEN=6) :: YSANDFILETYPE ! sand data file type
CHARACTER(LEN=6) :: YCLAYFILETYPE ! clay data file type
CHARACTER(LEN=6) :: YCTIFILETYPE ! topographic index data file type
@@ -169,8 +169,8 @@ REAL :: XUNIF_FERT ! uniform value of fertilisation rate
!
REAL, DIMENSION(150) :: XSOILGRID ! Soil layer thickness for DIF
!
- CHARACTER(LEN=28) :: YSOC_TOP ! file name for organic carbon expressed in kg/m2
- CHARACTER(LEN=28) :: YSOC_SUB ! file name for organic carbon expressed in kg/m2
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_TOP ! file name for organic carbon expressed in kg/m2
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_SUB ! file name for organic carbon expressed in kg/m2
CHARACTER(LEN=6) :: YSOCFILETYPE ! organic carbon data file type
REAL :: XUNIF_SOC_TOP ! uniform value of organic carbon (kg/m2)
REAL :: XUNIF_SOC_SUB ! uniform value of organic carbon (kg/m2)
@@ -218,16 +218,16 @@ XUNIF_PERM = XUNDEF
XUNIF_PH = XUNDEF
XUNIF_FERT = XUNDEF
!
-YCLAY = ' '
-YSAND = ' '
-YSOC_TOP = ' '
-YSOC_SUB = ' '
-YCTI = ' '
-YPERM = ' '
-YRUNOFFB = ' '
-YWDRAIN = ' '
-YPH = ' '
-YFERT = ' '
+YCLAY = ''
+YSAND = ''
+YSOC_TOP = ''
+YSOC_SUB = ''
+YCTI = ''
+YPERM = ''
+YRUNOFFB = ''
+YWDRAIN = ''
+YPH = ''
+YFERT = ''
!
YCLAYFILETYPE = ' '
YSANDFILETYPE = ' '
diff --git a/src/SURFEX/read_nam_pgd_megan.F90 b/src/SURFEX/read_nam_pgd_megan.F90
index 19f90c326d930d4e5baf542adefb7710aaf4345f..e1792020a42d71c849375be82b3a5fce6be2489b 100644
--- a/src/SURFEX/read_nam_pgd_megan.F90
+++ b/src/SURFEX/read_nam_pgd_megan.F90
@@ -46,6 +46,7 @@ USE MODI_CLOSE_NAMELIST
!
USE MODE_POS_SURF
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
@@ -72,8 +73,8 @@ INTEGER, INTENT(OUT) :: KMEGAN_NBR
! ! 'BLD' : where buildings are present
CHARACTER(LEN=3), DIMENSION(1000), INTENT(OUT) :: HMEGAN_ATYPE ! avg type for megan pgd fields
! ! 'ARI' , 'INV'
- CHARACTER(LEN=28), DIMENSION(1000), INTENT(OUT) :: HMEGAN_FILE ! data files
- CHARACTER(LEN=6), DIMENSION(1000), INTENT(OUT) :: HMEGAN_FILETYPE ! type of these files
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000), INTENT(OUT) :: HMEGAN_FILE ! data files
+ CHARACTER(LEN=6), DIMENSION(1000), INTENT(OUT) :: HMEGAN_FILETYPE ! type of these files
!
!
!* 0.2 Declaration of local variables
@@ -102,8 +103,8 @@ INTEGER :: NMEGAN_NBR
! ! 'BLD' : where buildings are present
CHARACTER(LEN=3), DIMENSION(1000) :: CMEGAN_ATYPE ! avg type for megan pgd fields
! ! 'ARI' , 'INV'
- CHARACTER(LEN=28), DIMENSION(1000) :: CMEGAN_FILE ! data files
- CHARACTER(LEN=6), DIMENSION(1000) :: CMEGAN_FILETYPE ! type of these files
+ CHARACTER(LEN=NFILENAMELGTMAX), DIMENSION(1000) :: CMEGAN_FILE ! data files
+ CHARACTER(LEN=6), DIMENSION(1000) :: CMEGAN_FILETYPE ! type of these files
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
NAMELIST/NAM_MEGAN_PGD/ NMEGAN_NBR, CMEGAN_NAME, CMEGAN_AREA, &
@@ -117,7 +118,7 @@ IF (LHOOK) CALL DR_HOOK('READ_NAM_PGD_MEGAN',0,ZHOOK_HANDLE)
NMEGAN_NBR = 0
!
CMEGAN_NAME = " "
-CMEGAN_FILE = " "
+CMEGAN_FILE = ""
CMEGAN_FILETYPE = " "
CMEGAN_AREA = "ALL"
CMEGAN_ATYPE = "ARI"
diff --git a/src/SURFEX/read_nam_pgd_orography.F90 b/src/SURFEX/read_nam_pgd_orography.F90
index 17402a60df8556f761221f857144a48d07a2a4af..505ae354b121ebc775df3b3431e15c618f2d6ca6 100644
--- a/src/SURFEX/read_nam_pgd_orography.F90
+++ b/src/SURFEX/read_nam_pgd_orography.F90
@@ -44,7 +44,7 @@
!* 0. DECLARATION
! -----------
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
@@ -62,7 +62,7 @@ IMPLICIT NONE
! ------------------------
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
- CHARACTER(LEN=28), INTENT(OUT) :: HZS ! file name for orography
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HZS ! file name for orography
CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! data file type
REAL, INTENT(OUT) :: PUNIF_ZS ! uniform orography
CHARACTER(LEN=3), INTENT(OUT) :: HOROGTYPE ! orogpraphy type
@@ -79,7 +79,7 @@ REAL, INTENT(OUT) :: PHALORADIUS ! radius of the halo in which
! 'MANNERS' = Manners et al. 2012
LOGICAL, INTENT(OUT) :: OFSSOSVF ! compute SVF on fractional slopes if possible
!
-CHARACTER(LEN=28), INTENT(OUT),OPTIONAL :: HSLOPE ! file name for slope
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT),OPTIONAL :: HSLOPE ! file name for slope
CHARACTER(LEN=6), INTENT(OUT),OPTIONAL :: HSLOPEFILETYPE ! data file type
LOGICAL, INTENT(OUT),OPTIONAL :: OEXPLICIT_SLOPE ! Slope is computed from explicit ZS field and not subgrid orography
!
@@ -94,10 +94,10 @@ LOGICAL :: GFOUND ! flag when namelist is present
!* 0.3 Declaration of namelists
! ------------------------
!
- CHARACTER(LEN=28) :: YZS ! file name for orography
- CHARACTER(LEN=6) :: YZSFILETYPE ! data file type
-CHARACTER(LEN=28) :: YSLOPE ! file name for slope
-CHARACTER(LEN=6) :: YSLOPEFILETYPE ! data file type
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YZS ! file name for orography
+ CHARACTER(LEN=6) :: YZSFILETYPE ! data file type
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSLOPE ! file name for slope
+CHARACTER(LEN=6) :: YSLOPEFILETYPE ! data file type
REAL :: XUNIF_ZS ! uniform orography
CHARACTER(LEN=3) :: COROGTYPE ! orogpraphy type
! ! 'AVG' : average orography
@@ -131,9 +131,9 @@ NAMELIST/NAM_ZS/YZS, YZSFILETYPE, XUNIF_ZS, COROGTYPE, XENV, LIMP_ZS , &
!
IF (LHOOK) CALL DR_HOOK('READ_NAM_PGD_OROGRAPHY',0,ZHOOK_HANDLE)
XUNIF_ZS = XUNDEF
-YZS = ' '
+YZS = ''
YZSFILETYPE = ' '
-YSLOPE = ' '
+YSLOPE = ''
YSLOPEFILETYPE = ' '
!
COROGTYPE = 'ENV'
diff --git a/src/SURFEX/read_nam_pgd_seabathy.F90 b/src/SURFEX/read_nam_pgd_seabathy.F90
index bd0762228d9bb7a50e6d282bcadf08accee1fe85..58059669df6f04a814475ac1b666688af459c07b 100644
--- a/src/SURFEX/read_nam_pgd_seabathy.F90
+++ b/src/SURFEX/read_nam_pgd_seabathy.F90
@@ -41,7 +41,7 @@
!* 0. DECLARATION
! -----------
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
@@ -57,12 +57,11 @@ IMPLICIT NONE
!* 0.1 Declaration of arguments
! ------------------------
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
- CHARACTER(LEN=28), INTENT(OUT) :: HSEABATHY ! file name for bathymetry
- CHARACTER(LEN=6), INTENT(OUT) :: HSEABATHYFILETYPE ! bathymetry data file type
- CHARACTER(LEN=28), INTENT(OUT) :: HNCVARNAME ! variable to read in netcdf
- ! file
-REAL, INTENT(OUT) :: PUNIF_SEABATHY ! uniform value of bathymetry
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HSEABATHY ! file name for bathymetry
+ CHARACTER(LEN=6), INTENT(OUT) :: HSEABATHYFILETYPE ! bathymetry data file type
+ CHARACTER(LEN=28), INTENT(OUT) :: HNCVARNAME ! variable to read in netcdf file
+REAL, INTENT(OUT) :: PUNIF_SEABATHY ! uniform value of bathymetry
!
!
!* 0.2 Declaration of local variables
@@ -75,9 +74,9 @@ LOGICAL :: GFOUND ! flag when namelist is present
!* 0.3 Declaration of namelists
! ------------------------
!
- CHARACTER(LEN=28) :: YSEABATHY ! file name for bathymetry
- CHARACTER(LEN=6) :: YSEABATHYFILETYPE ! bathymetry data file type
- CHARACTER(LEN=28) :: YNCVARNAME ! variable to read in netcdf
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YSEABATHY ! file name for bathymetry
+ CHARACTER(LEN=6) :: YSEABATHYFILETYPE ! bathymetry data file type
+ CHARACTER(LEN=28) :: YNCVARNAME ! variable to read in netcdf
! file
REAL :: XUNIF_SEABATHY ! uniform value of bathymetry
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -91,7 +90,7 @@ NAMELIST/NAM_SEABATHY/ YSEABATHY, YSEABATHYFILETYPE, YNCVARNAME, XUNIF_SEABATHY
!
IF (LHOOK) CALL DR_HOOK('READ_NAM_PGD_SEABATHY',0,ZHOOK_HANDLE)
XUNIF_SEABATHY = -300.
-YSEABATHY = ' '
+YSEABATHY = ''
YSEABATHYFILETYPE = ' '
YNCVARNAME='rose '
!
diff --git a/src/SURFEX/read_nam_pgd_teb_greenroof.F90 b/src/SURFEX/read_nam_pgd_teb_greenroof.F90
index 1ca63bdd45b39e6552d492222a291133d7cfb536..94cf52cf54c861fa5078bd556d9e5b3347998080 100644
--- a/src/SURFEX/read_nam_pgd_teb_greenroof.F90
+++ b/src/SURFEX/read_nam_pgd_teb_greenroof.F90
@@ -42,7 +42,7 @@
!* 0. DECLARATION
! -----------
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODI_GET_LUOUT
USE MODI_OPEN_NAMELIST
@@ -68,10 +68,10 @@ REAL,DIMENSION(:), INTENT(OUT) :: PUNIF_OM_GR
REAL,DIMENSION(:), INTENT(OUT) :: PUNIF_CLAY_GR
REAL,DIMENSION(:), INTENT(OUT) :: PUNIF_SAND_GR
REAL,DIMENSION(:), INTENT(OUT) :: PUNIF_LAI_GR
- CHARACTER(LEN=28),DIMENSION(:), INTENT(OUT) :: HFNAM_OM_GR
- CHARACTER(LEN=28),DIMENSION(:), INTENT(OUT) :: HFNAM_CLAY_GR
- CHARACTER(LEN=28),DIMENSION(:), INTENT(OUT) :: HFNAM_SAND_GR
- CHARACTER(LEN=28),DIMENSION(:), INTENT(OUT) :: HFNAM_LAI_GR
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(:), INTENT(OUT) :: HFNAM_OM_GR
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(:), INTENT(OUT) :: HFNAM_CLAY_GR
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(:), INTENT(OUT) :: HFNAM_SAND_GR
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(:), INTENT(OUT) :: HFNAM_LAI_GR
CHARACTER(LEN=6),DIMENSION(:), INTENT(OUT) :: HFTYP_OM_GR
CHARACTER(LEN=6),DIMENSION(:), INTENT(OUT) :: HFTYP_CLAY_GR
CHARACTER(LEN=6),DIMENSION(:), INTENT(OUT) :: HFTYP_SAND_GR
@@ -106,10 +106,10 @@ REAL,DIMENSION(NTIME_GR_MAX) :: XUNIF_LAI_GR ! LAI of green ro
!
! name of files containing data
!
- CHARACTER(LEN=28),DIMENSION(NLAYER_GR_MAX) :: CFNAM_OM_GR ! fraction of organic matter (OM) in green roof layer
- CHARACTER(LEN=28),DIMENSION(NLAYER_GR_MAX) :: CFNAM_CLAY_GR ! fraction of clay for the non-OM part of the green roof layer
- CHARACTER(LEN=28),DIMENSION(NLAYER_GR_MAX) :: CFNAM_SAND_GR ! fraction of sand for the non-OM part of the green roof layer
- CHARACTER(LEN=28),DIMENSION(NTIME_GR_MAX) :: CFNAM_LAI_GR ! LAI of green roof
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NLAYER_GR_MAX) :: CFNAM_OM_GR ! fraction of organic matter (OM) in green roof layer
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NLAYER_GR_MAX) :: CFNAM_CLAY_GR ! fraction of clay for the non-OM part of the green roof layer
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NLAYER_GR_MAX) :: CFNAM_SAND_GR ! fraction of sand for the non-OM part of the green roof layer
+ CHARACTER(LEN=NFILENAMELGTMAX),DIMENSION(NTIME_GR_MAX) :: CFNAM_LAI_GR ! LAI of green roof
!
! type of files containing data
!
@@ -142,10 +142,10 @@ XUNIF_CLAY_GR = XUNDEF
XUNIF_SAND_GR = XUNDEF
XUNIF_LAI_GR = XUNDEF
!
-CFNAM_OM_GR = ' '
-CFNAM_CLAY_GR = ' '
-CFNAM_SAND_GR = ' '
-CFNAM_LAI_GR = ' '
+CFNAM_OM_GR = ''
+CFNAM_CLAY_GR = ''
+CFNAM_SAND_GR = ''
+CFNAM_LAI_GR = ''
!
CFTYP_OM_GR = ' '
CFTYP_CLAY_GR = ' '
diff --git a/src/SURFEX/read_netcdf.F90 b/src/SURFEX/read_netcdf.F90
index faa41334bb204fa475e1e334ae18aef8f82b9488..2bde3ddd8db727bf3d81c1b4a1c048573d81c9ed 100644
--- a/src/SURFEX/read_netcdf.F90
+++ b/src/SURFEX/read_netcdf.F90
@@ -34,6 +34,7 @@ use modd_netcdf_sfx, only : IDCDF_KIND
USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
USE MODD_PGD_GRID, ONLY : LLATLONMASK
!
@@ -57,7 +58,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of the variable in netcdf file
!
!
diff --git a/src/SURFEX/read_pgd_isban.F90 b/src/SURFEX/read_pgd_isban.F90
index 6293f5626dd68cd96994212b6db86da6ad0bc46f..f1fc4640d11619888378d4ec8e70c7aabdf49051 100644
--- a/src/SURFEX/read_pgd_isban.F90
+++ b/src/SURFEX/read_pgd_isban.F90
@@ -75,7 +75,7 @@ USE MODD_DATA_COVER, ONLY : LDATA_IRRIG
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER, NCAR_FILES
USE MODD_AGRI, ONLY : LIRRIGMODE, XTHRESHOLD_DEFAULT, XTHRESHOLD, NVEG_IRR, NPATCH_TREE
!
-USE MODD_SURF_PAR, ONLY : XUNDEF, LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
USE MODD_ISBA_PAR, ONLY : XOPTIMGRID
!
USE MODI_READ_NAM_PGD_ISBA
@@ -153,14 +153,14 @@ CHARACTER(LEN=3) :: YPHOTO ! photosynthesis option
LOGICAL :: GTR_ML ! new radiative transfert
CHARACTER(LEN=4) :: YALBEDO
REAL :: ZRM_PATCH ! threshold to remove little fractions of patches
-CHARACTER(LEN=28) :: YSAND ! file name for sand fraction
-CHARACTER(LEN=28) :: YCLAY ! file name for clay fraction
-CHARACTER(LEN=28) :: YSOC_TOP ! file name for organic carbon top soil
-CHARACTER(LEN=28) :: YSOC_SUB ! file name for organic carbon sub soil
-CHARACTER(LEN=28) :: YCTI ! file name for topographic index
-CHARACTER(LEN=28) :: YRUNOFFB ! file name for runoffb parameter
-CHARACTER(LEN=28) :: YWDRAIN ! file name for wdrain parameter
-CHARACTER(LEN=28) :: YPERM ! file name for permafrost distribution
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSAND ! file name for sand fraction
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCLAY ! file name for clay fraction
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_TOP ! file name for organic carbon top soil
+CHARACTER(LEN=NFILENAMELGTMAX) :: YSOC_SUB ! file name for organic carbon sub soil
+CHARACTER(LEN=NFILENAMELGTMAX) :: YCTI ! file name for topographic index
+CHARACTER(LEN=NFILENAMELGTMAX) :: YRUNOFFB ! file name for runoffb parameter
+CHARACTER(LEN=NFILENAMELGTMAX) :: YWDRAIN ! file name for wdrain parameter
+CHARACTER(LEN=NFILENAMELGTMAX) :: YPERM ! file name for permafrost distribution
CHARACTER(LEN=6) :: YSANDFILETYPE ! sand data file type
CHARACTER(LEN=6) :: YCLAYFILETYPE ! clay data file type
CHARACTER(LEN=6) :: YSOCFILETYPE ! organic carbon data file type
@@ -182,8 +182,8 @@ LOGICAL :: LIMP_CTI ! Imposed maps of topographic index
LOGICAL :: LIMP_PERM ! Imposed maps of permafrost distribution
LOGICAL :: GLULCC
REAL, DIMENSION(150) :: ZSOILGRID ! Soil grid reference for DIF
-CHARACTER(LEN=28) :: YPH ! file name for pH
-CHARACTER(LEN=28) :: YFERT ! file name for fertilisation rate
+CHARACTER(LEN=NFILENAMELGTMAX) :: YPH ! file name for pH
+CHARACTER(LEN=NFILENAMELGTMAX) :: YFERT ! file name for fertilisation rate
CHARACTER(LEN=6) :: YPHFILETYPE ! pH data file type
CHARACTER(LEN=6) :: YFERTFILETYPE ! fertilisation data file type
REAL :: XUNIF_PH ! uniform value of pH
diff --git a/src/SURFEX/read_pgd_netcdf.F90 b/src/SURFEX/read_pgd_netcdf.F90
index 904eac3401f5aab97e43b0f79c819e475a3184e2..d22814cfec7ba469559598798f20027b7ab496d4 100644
--- a/src/SURFEX/read_pgd_netcdf.F90
+++ b/src/SURFEX/read_pgd_netcdf.F90
@@ -45,6 +45,8 @@ USE MODE_READ_CDF, ONLY :HANDLE_ERR_CDF
USE MODI_PT_BY_PT_TREATMENT
USE MODI_GET_LUOUT
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -63,7 +65,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
CHARACTER(LEN=6), INTENT(IN) :: HSCHEME ! Scheme treated
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
CHARACTER(LEN=20), INTENT(IN) :: HFIELD ! name of variable
REAL,DIMENSION(:),INTENT(INOUT),OPTIONAL :: PFIELD ! output a variable
diff --git a/src/SURFEX/read_prep_file_date.F90 b/src/SURFEX/read_prep_file_date.F90
index 14b892279f3bd96cbe12431adbec3f3dad89b56a..304593f78bb362c2f3b4ec30380f1eb65f1d0ca2 100644
--- a/src/SURFEX/read_prep_file_date.F90
+++ b/src/SURFEX/read_prep_file_date.F90
@@ -32,7 +32,7 @@ SUBROUTINE READ_PREP_FILE_DATE (HPROGRAM,HFILE,HFILETYPE,TPTIME,KLUOUT)
USE MODD_IO_BUFF, ONLY : CREC, NREC
!
USE MODD_TYPE_DATE_SURF
-USE MODD_SURF_PAR, ONLY: LEN_HREC
+USE MODD_SURF_PAR, ONLY: LEN_HREC, NFILENAMELGTMAX
!
USE MODI_PREP_GRIB_GRID
USE MODI_READ_BUFFER
@@ -52,7 +52,7 @@ IMPLICIT NONE
!
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling surf. schemes
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! name of file
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! file type
TYPE (DATE_TIME), INTENT(OUT) :: TPTIME ! grib date and time
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
diff --git a/src/SURFEX/read_prep_flake_conf.F90 b/src/SURFEX/read_prep_flake_conf.F90
index 59e8ed2347b07783d76b4a26b15e7c9358f58b45..0a9424d388fded924955c50b2da2caf82f5eee05 100644
--- a/src/SURFEX/read_prep_flake_conf.F90
+++ b/src/SURFEX/read_prep_flake_conf.F90
@@ -58,7 +58,7 @@ USE MODD_PREP_FLAKE, ONLY : CFILE_FLAKE, CFILEPGD_FLAKE, CTYPE, CTYPEPGD, &
XUNIF_H_B1, &
LCLIM_LAKE
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -71,18 +71,18 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
- CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
- CHARACTER(LEN=28), INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE! file type
- CHARACTER(LEN=28), INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
-LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
+ CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
!
!* 0.2 Declarations of local variables
@@ -92,7 +92,7 @@ INTEGER :: IRESP ! IRESP : return-code if a problem appears
! at the open of the file in LFI routines
INTEGER :: ILUNAM ! Logical unit of namelist file
!
- CHARACTER(LEN=28) :: YNAMELIST ! namelist file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAMELIST ! namelist file
!
LOGICAL :: GFOUND ! Return code when searching namelist
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -100,10 +100,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
IF (LHOOK) CALL DR_HOOK('READ_PREP_FLAKE_CONF',0,ZHOOK_HANDLE)
-HFILE = ' '
+HFILE = ''
HFILETYPE = ' '
!
-HFILEPGD = ' '
+HFILEPGD = ''
HFILEPGDTYPE = ' '
!
OUNIF = .FALSE.
@@ -142,65 +142,65 @@ SELECT CASE (HVAR)
CASE('T_SNOW ')
OUNIF = (XUNIF_T_SNOW/=XUNDEF)
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN ! all fields but TS
- HFILE = ' ' ! are not readed
+ HFILE = '' ! are not read
HFILETYPE = ' ' ! from grib files
END IF
CASE('T_ICE ')
OUNIF = (XUNIF_T_ICE/=XUNDEF)
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
CASE('T_MNW ')
OUNIF = .FALSE.
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
CASE('T_WML ')
OUNIF = (XUNIF_T_WML/=XUNDEF)
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
CASE('T_BOT ')
OUNIF = (XUNIF_T_BOT/=XUNDEF)
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
CASE('T_B1 ')
OUNIF = (XUNIF_T_B1/=XUNDEF)
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
CASE('CT ')
OUNIF = (XUNIF_CT/=XUNDEF)
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
CASE('H_SNOW ')
OUNIF = (XUNIF_H_SNOW/=XUNDEF)
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
CASE('H_ICE ')
OUNIF = (XUNIF_H_ICE/=XUNDEF)
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
CASE('H_ML ')
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
OUNIF = (XUNIF_H_ML/=XUNDEF)
CASE('H_B1 ')
OUNIF = (XUNIF_H_B1/=XUNDEF)
IF (HFILETYPE=='GRIB '.OR.HFILETYPE=='ASCLLV') THEN
- HFILE = ' '
+ HFILE = ''
HFILETYPE = ' '
END IF
END SELECT
diff --git a/src/SURFEX/read_prep_garden_snow.F90 b/src/SURFEX/read_prep_garden_snow.F90
index 86167c9333137f84711f4776bdbe19299426d041..76717748567a7f1b49c1e0aeea9e2705619d8fe8 100644
--- a/src/SURFEX/read_prep_garden_snow.F90
+++ b/src/SURFEX/read_prep_garden_snow.F90
@@ -48,7 +48,7 @@
USE MODN_PREP_GARDEN_SNOW
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_SNOW_PAR, ONLY : XANSMIN, XRHOSMAX
USE MODD_CSTS, ONLY : XTT
!
@@ -78,10 +78,10 @@ IMPLICIT NONE
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
CHARACTER(LEN=3), INTENT(OUT) :: HSNOW ! snow scheme
INTEGER, INTENT(OUT) :: KSNOW_LAYER ! number of snow layers
-CHARACTER(LEN=28), OPTIONAL, INTENT(OUT) :: HFILE ! file name
-CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
- CHARACTER(LEN=28),OPTIONAL, INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILEPGDTYPE ! file type
+CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(OUT) :: HFILE ! file name
+CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX),OPTIONAL, INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILEPGDTYPE ! file type
LOGICAL, OPTIONAL, INTENT(OUT) :: OUNIF ! uniform snow
!
!* 0.2 Declarations of local variables
@@ -89,7 +89,7 @@ CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
!
CHARACTER(LEN=3) :: CSNOW
INTEGER :: NSNOW_LAYER
-CHARACTER(LEN=28) :: CFILE_SNOW, CFILEPGD_SNOW
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_SNOW, CFILEPGD_SNOW
LOGICAL :: LSNOW_IDEAL, LSNOW_FRAC_TOT, LSWEMAX
REAL :: XASNOW, XSWEMAX
REAL, DIMENSION(NSNOW_LAYER_MAX) :: XWSNOW, XZSNOW, XRSNOW, XTSNOW, XLWCSNOW, XSG1SNOW, XSG2SNOW,&
@@ -168,8 +168,8 @@ IF (LNAM_READ) THEN
!
CSNOW = 'D95'
NSNOW_LAYER = 1
- CFILE_SNOW = ' '
- CFILEPGD_SNOW = ' '
+ CFILE_SNOW = ''
+ CFILEPGD_SNOW = ''
LSNOW_IDEAL = .FALSE.
LSNOW_FRAC_TOT = .FALSE.
XWSNOW(:) = XUNDEF
@@ -287,7 +287,7 @@ IF(PRESENT(HFILE))THEN
IF(LFILE)THEN
HFILE = CFILE_SNOW_GD
ELSE
- HFILE = ' '
+ HFILE = ''
ENDIF
ENDIF
IF(PRESENT(HFILETYPE))THEN
@@ -308,7 +308,7 @@ IF(PRESENT(HFILEPGD))THEN
IF(LFILE)THEN
HFILEPGD = CFILEPGD_SNOW_GD
ELSE
- HFILEPGD = ' '
+ HFILEPGD = ''
ENDIF
ENDIF
IF (LFILE.AND.PRESENT(OUNIF)) OUNIF=.FALSE.
diff --git a/src/SURFEX/read_prep_greenroof_snow.F90 b/src/SURFEX/read_prep_greenroof_snow.F90
index bad766550fef2edb88fa8f7c7f239f20f61a1346..bb7b69d9d316fe860d7dc8aec1b872530721f7c6 100644
--- a/src/SURFEX/read_prep_greenroof_snow.F90
+++ b/src/SURFEX/read_prep_greenroof_snow.F90
@@ -44,7 +44,7 @@
USE MODN_PREP_GREENROOF_SNOW
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_SNOW_PAR, ONLY : XANSMIN, XRHOSMAX
USE MODD_CSTS, ONLY : XTT
!
@@ -74,10 +74,10 @@ IMPLICIT NONE
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
CHARACTER(LEN=3), INTENT(OUT) :: HSNOW ! snow scheme
INTEGER, INTENT(OUT) :: KSNOW_LAYER ! number of snow layers
- CHARACTER(LEN=28), OPTIONAL, INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
- CHARACTER(LEN=28), OPTIONAL, INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILEPGDTYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILEPGDTYPE ! file type
LOGICAL, OPTIONAL, INTENT(OUT) :: OUNIF ! uniform snow
!
!* 0.2 Declarations of local variables
@@ -85,7 +85,7 @@ INTEGER, INTENT(OUT) :: KSNOW_LAYER ! number of snow layers
!
CHARACTER(LEN=3) :: CSNOW
INTEGER :: NSNOW_LAYER
-CHARACTER(LEN=28) :: CFILE_SNOW, CFILEPGD_SNOW
+CHARACTER(LEN=NFILENAMELGTMAX) :: CFILE_SNOW, CFILEPGD_SNOW
LOGICAL :: LSNOW_IDEAL, LSNOW_FRAC_TOT, LSWEMAX
REAL :: XASNOW, XSWEMAX
REAL, DIMENSION(NSNOW_LAYER_MAX) :: XWSNOW, XZSNOW, XRSNOW, XTSNOW, XLWCSNOW, XSG1SNOW, XSG2SNOW,&
@@ -163,7 +163,7 @@ IF (LNAM_READ) THEN
!
CSNOW = '3-L'
NSNOW_LAYER = 3
- CFILE_SNOW = ' '
+ CFILE_SNOW = ''
LSNOW_IDEAL = .FALSE.
LSNOW_FRAC_TOT = .FALSE.
XWSNOW(:) = XUNDEF
@@ -275,7 +275,7 @@ IF(PRESENT(HFILE))THEN
IF(LFILE)THEN
HFILE = CFILE_SNOW_GR
ELSE
- HFILE = ' '
+ HFILE = ''
ENDIF
ENDIF
IF(PRESENT(HFILETYPE))THEN
@@ -296,7 +296,7 @@ IF(PRESENT(HFILEPGD))THEN
IF(LFILE)THEN
HFILEPGD = CFILEPGD_SNOW_GR
ELSE
- HFILEPGD = ' '
+ HFILEPGD = ''
ENDIF
ENDIF
IF (LFILE.AND.PRESENT(OUNIF)) OUNIF=.FALSE.
diff --git a/src/SURFEX/read_prep_isba_conf.F90 b/src/SURFEX/read_prep_isba_conf.F90
index ce579c66a607304630039e30415d0535a5d561fd..5eb0bd788ac37cb43d03cc552f95c217fb67349d 100644
--- a/src/SURFEX/read_prep_isba_conf.F90
+++ b/src/SURFEX/read_prep_isba_conf.F90
@@ -53,7 +53,7 @@ USE MODD_PREP_ISBA, ONLY : CFILE_ISBA, CTYPE, CFILEPGD_ISBA, CTYPEPGD, &
XTG_SURF, XTG_ROOT, XTG_DEEP, &
XWSNOW, XTSNOW, XRSNOW, XASNOW
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -66,18 +66,18 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
- CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
- CHARACTER(LEN=28), INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! file type
- CHARACTER(LEN=28), INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
-LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
+ CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
!
!* 0.2 Declarations of local variables
@@ -88,10 +88,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
IF (LHOOK) CALL DR_HOOK('READ_PREP_ISBA_CONF',0,ZHOOK_HANDLE)
-HFILE = ' '
+HFILE = ''
HFILETYPE = ' '
!
-HFILEPGD = ' '
+HFILEPGD = ''
HFILEPGDTYPE = ' '
!
OUNIF = .FALSE.
diff --git a/src/SURFEX/read_prep_isba_snow.F90 b/src/SURFEX/read_prep_isba_snow.F90
index 1649148eae8e514be08eee2252969244518de49e..8cfcee3eab065dcbb82c57a469e391deae6ca90c 100644
--- a/src/SURFEX/read_prep_isba_snow.F90
+++ b/src/SURFEX/read_prep_isba_snow.F90
@@ -51,7 +51,7 @@
USE MODN_PREP_ISBA_SNOW
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_SNOW_PAR, ONLY : XANSMIN, XRHOSMAX
USE MODD_CSTS, ONLY : XTT
!
@@ -84,10 +84,10 @@ IMPLICIT NONE
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
CHARACTER(LEN=3), INTENT(OUT) :: HSNOW ! snow scheme
INTEGER, INTENT(OUT) :: KSNOW_LAYER ! number of snow layers
- CHARACTER(LEN=28), OPTIONAL, INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
- CHARACTER(LEN=28), OPTIONAL, INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILEPGDTYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILEPGDTYPE ! file type
LOGICAL, OPTIONAL, INTENT(OUT) :: OUNIF ! uniform snow
!
!* 0.2 Declarations of local variables
@@ -294,7 +294,7 @@ IF(PRESENT(HFILE))THEN
IF(LFILE)THEN
HFILE = CFILE_SNOW
ELSE
- HFILE = ' '
+ HFILE = ''
ENDIF
ENDIF
IF(PRESENT(HFILETYPE))THEN
@@ -315,7 +315,7 @@ IF(PRESENT(HFILEPGD))THEN
IF(LFILE)THEN
HFILEPGD = CFILEPGD_SNOW
ELSE
- HFILEPGD = ' '
+ HFILEPGD = ''
ENDIF
ENDIF
IF (LFILE.AND.PRESENT(OUNIF)) OUNIF=.FALSE.
diff --git a/src/SURFEX/read_prep_seaflux_conf.F90 b/src/SURFEX/read_prep_seaflux_conf.F90
index d0d819072847eb84bb5e25dbfe9123652640b6ea..601481f8fd013bd60e9a7a7a177c324df996e440 100644
--- a/src/SURFEX/read_prep_seaflux_conf.F90
+++ b/src/SURFEX/read_prep_seaflux_conf.F90
@@ -56,7 +56,7 @@ USE MODI_PREP_OCEAN_MERCATORVERGRID
USE MODD_PREP_SEAFLUX, ONLY : CFILE_SEAFLX, CTYPE_SEAFLX, CFILEPGD_SEAFLX, CTYPEPGD, &
CFILEWAVE_SEAFLX, CTYPEWAVE, XSST_UNIF, XSSS_UNIF, XSIC_UNIF
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -71,18 +71,18 @@ IMPLICIT NONE
!
LOGICAL, INTENT(IN) :: OMERCATOR
!
-CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
-CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
-CHARACTER(LEN=28), INTENT(OUT) :: HFILE ! file name
-CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE! file type
-CHARACTER(LEN=28), INTENT(OUT) :: HFILEPGD ! file name
-CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
-CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
-CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
-CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! atmospheric file name
-CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
-LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
+CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
+CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILE ! file name
+CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE! file type
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILEPGD ! file name
+CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
+CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! atmospheric file name
+CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
!
!* 0.2 Declarations of local variables
@@ -92,7 +92,7 @@ INTEGER :: IRESP ! IRESP : return-code if a problem appears
! at the open of the file in LFI routines
INTEGER :: ILUNAM ! Logical unit of namelist file
!
- CHARACTER(LEN=28) :: YNAMELIST ! namelist file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAMELIST ! namelist file
!
LOGICAL :: GFOUND ! Return code when searching namelist
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -100,10 +100,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
IF (LHOOK) CALL DR_HOOK('READ_PREP_SEAFLUX_CONF',0,ZHOOK_HANDLE)
-HFILE = ' '
+HFILE = ''
HFILETYPE = ' '
!
-HFILEPGD = ' '
+HFILEPGD = ''
HFILEPGDTYPE = ' '
!
OUNIF = .FALSE.
diff --git a/src/SURFEX/read_prep_surf_atm_conf.F90 b/src/SURFEX/read_prep_surf_atm_conf.F90
index a2d4af29c2aa9bab0b75d9a99a1575005ceb4240..6bb1f277831d0d894869ad7317c637ad9268d43f 100644
--- a/src/SURFEX/read_prep_surf_atm_conf.F90
+++ b/src/SURFEX/read_prep_surf_atm_conf.F90
@@ -40,6 +40,8 @@
!* 0. DECLARATIONS
! ------------
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODE_POS_SURF
!
USE MODN_PREP_SURF_ATM
@@ -52,16 +54,16 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
- CHARACTER(LEN=28), INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! file type
- CHARACTER(LEN=28), INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
@@ -74,7 +76,7 @@ INTEGER :: IRESP ! IRESP : return-code if a problem appears
! at the open of the file in LFI routines
INTEGER :: ILUNAM ! Logical unit of namelist file
!
- CHARACTER(LEN=28) :: YNAMELIST ! namelist file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAMELIST ! namelist file
!
LOGICAL :: GFOUND ! Return code when searching namelist
REAL(KIND=JPRB) :: ZHOOK_HANDLE
diff --git a/src/SURFEX/read_prep_teb_conf.F90 b/src/SURFEX/read_prep_teb_conf.F90
index 7972a18079a9c4b3e876ad54f2aeada3dac26d20..95670acc11cc1954c1a918ecb2309b281f6e1a75 100644
--- a/src/SURFEX/read_prep_teb_conf.F90
+++ b/src/SURFEX/read_prep_teb_conf.F90
@@ -49,7 +49,7 @@ USE MODD_PREP_TEB, ONLY : CFILE_TEB, CTYPE, CFILEPGD_TEB, CTYPEPGD,
XT_CAN, XQ_CAN, XWS_ROOF_DEF, XWS_ROAD_DEF, XTI_BLD_DEF, &
XHUI_BLD_DEF, XHUI_BLD, XTS_BLD_DEF
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODE_THERMOS
!
@@ -63,18 +63,18 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
- CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
- CHARACTER(LEN=28), INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE! file type
- CHARACTER(LEN=28), INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
-LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
+ CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
!
!* 0.2 Declarations of local variables
! -------------------------------
@@ -84,10 +84,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
IF (LHOOK) CALL DR_HOOK('READ_PREP_TEB_CONF',0,ZHOOK_HANDLE)
-HFILE = ' '
+HFILE = ''
HFILETYPE = ' '
!
-HFILEPGD = ' '
+HFILEPGD = ''
HFILEPGDTYPE = ' '
!
OUNIF = .FALSE.
diff --git a/src/SURFEX/read_prep_teb_garden_conf.F90 b/src/SURFEX/read_prep_teb_garden_conf.F90
index 191190ef2418e3ac4632a684846a403adeb74cf9..57a5394737bba29534194510f95c48700f477edd 100644
--- a/src/SURFEX/read_prep_teb_garden_conf.F90
+++ b/src/SURFEX/read_prep_teb_garden_conf.F90
@@ -51,7 +51,7 @@ USE MODD_PREP_TEB_GARDEN, ONLY : CFILE_GD, CTYPE, CFILEPGD_GD, CTYPEPGD, &
CFILE_TG_SURF_GD, CFILE_TG_ROOT_GD, CFILE_TG_DEEP_GD, &
XTG_SURF_GD, XTG_ROOT_GD, XTG_DEEP_GD
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -64,18 +64,18 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
- CHARACTER(LEN=28), INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! file type
- CHARACTER(LEN=28), INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
-LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+ CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
!
!* 0.2 Declarations of local variables
@@ -85,7 +85,7 @@ INTEGER :: IRESP ! IRESP : return-code if a problem appears
! at the open of the file in LFI routines
INTEGER :: ILUNAM ! Logical unit of namelist file
!
- CHARACTER(LEN=28) :: YNAMELIST ! namelist file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAMELIST ! namelist file
!
LOGICAL :: GFOUND ! Return code when searching namelist
REAL(KIND=JPRB) :: ZHOOK_HANDLE
diff --git a/src/SURFEX/read_prep_teb_greenroof_conf.F90 b/src/SURFEX/read_prep_teb_greenroof_conf.F90
index 22a81467f33109ffcf6a166e97cde5eb5363d625..334886494367ffc5a6607c7403b6870408e53f7b 100644
--- a/src/SURFEX/read_prep_teb_greenroof_conf.F90
+++ b/src/SURFEX/read_prep_teb_greenroof_conf.F90
@@ -53,7 +53,7 @@ USE MODD_PREP_TEB_GREENROOF, ONLY : CFILE_GR, CTYPE, CFILEPGD_GR, CTYPEPGD, &
CFILE_TG_SURF_GR, CFILE_TG_ROOT_GR, CFILE_TG_DEEP_GR, &
XTG_SURF_GR, XTG_ROOT_GR, XTG_DEEP_GR
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -66,18 +66,18 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
- CHARACTER(LEN=28), INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! file type
- CHARACTER(LEN=28), INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
-LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+ CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
!
!* 0.2 Declarations of local variables
@@ -87,7 +87,7 @@ INTEGER :: IRESP ! IRESP : return-code if a problem appears
! at the open of the file in LFI routines
INTEGER :: ILUNAM ! Logical unit of namelist file
!
- CHARACTER(LEN=28) :: YNAMELIST ! namelist file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YNAMELIST ! namelist file
!
LOGICAL :: GFOUND ! Return code when searching namelist
REAL(KIND=JPRB) :: ZHOOK_HANDLE
diff --git a/src/SURFEX/read_prep_teb_snow.F90 b/src/SURFEX/read_prep_teb_snow.F90
index 14ea53abdbdd832346cff7321c673b670f1dc3bd..ed0a2b7d60943d9477cb5c505e3c214390647023 100644
--- a/src/SURFEX/read_prep_teb_snow.F90
+++ b/src/SURFEX/read_prep_teb_snow.F90
@@ -41,7 +41,7 @@
USE MODN_PREP_TEB_SNOW
USE MODD_READ_NAMELIST, ONLY : LNAM_READ
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
USE MODE_POS_SURF
USE MODI_TEST_NAM_VAR_SURF
@@ -73,10 +73,10 @@ IMPLICIT NONE
CHARACTER(LEN=3), INTENT(OUT) :: HSNOW_ROAD ! snow scheme for roads
INTEGER, INTENT(OUT) :: KSNOW_ROOF ! snow scheme layers for roofs
INTEGER, INTENT(OUT) :: KSNOW_ROAD ! snow scheme layers for roads
- CHARACTER(LEN=28), OPTIONAL, INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
- CHARACTER(LEN=28), OPTIONAL, INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILEPGDTYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILETYPE ! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), OPTIONAL, INTENT(OUT) :: HFILEPGDTYPE ! file type
!
!* 0.2 Declarations of local variables
@@ -106,9 +106,9 @@ IF (LNAM_READ) THEN
CSNOW_ROOF = '1-L'
CSNOW_ROAD = '1-L'
!
- CFILE_SNOW_TEB = ' '
+ CFILE_SNOW_TEB = ''
CTYPE_SNOW = ' '
- CFILEPGD_SNOW_TEB = ' '
+ CFILEPGD_SNOW_TEB = ''
CTYPEPGD_SNOW = ' '
!
XWSNOW_ROOF(:) = 0.
diff --git a/src/SURFEX/read_prep_watflux_conf.F90 b/src/SURFEX/read_prep_watflux_conf.F90
index 41934e61d43619aa2d587d815fad44444ea6d8f9..b739a15416f484810b76bb7985b70344f0897f0b 100644
--- a/src/SURFEX/read_prep_watflux_conf.F90
+++ b/src/SURFEX/read_prep_watflux_conf.F90
@@ -45,7 +45,7 @@ USE MODI_READ_PREP_SURF_ATM_CONF
USE MODN_PREP_WATFLUX
USE MODD_PREP_WATFLUX, ONLY : CFILE_WATFLX, CTYPE, CFILEPGD_WATFLX, CTYPEPGD, XTS_WATER_UNIF
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
!
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
@@ -58,18 +58,18 @@ IMPLICIT NONE
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
- CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
- CHARACTER(LEN=28), INTENT(OUT) :: HFILE ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE! file type
- CHARACTER(LEN=28), INTENT(OUT) :: HFILEPGD ! file name
- CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HPGDFILE ! atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
-INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
-LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling ISBA
+ CHARACTER(LEN=7), INTENT(IN) :: HVAR ! variable treated
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILE ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILETYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(OUT) :: HFILEPGD ! file name
+ CHARACTER(LEN=6), INTENT(OUT) :: HFILEPGDTYPE! file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HPGDFILE ! atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HPGDFILETYPE! atmospheric file type
+INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
+LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
!
!* 0.2 Declarations of local variables
@@ -78,8 +78,6 @@ LOGICAL, INTENT(OUT) :: OUNIF ! flag for prescribed uniform field
INTEGER :: IRESP ! IRESP : return-code if a problem appears
! at the open of the file in LFI routines
INTEGER :: ILUNAM ! Logical unit of namelist file
-!
- CHARACTER(LEN=28) :: YNAMELIST ! namelist file
!
LOGICAL :: GFOUND ! Return code when searching namelist
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -87,10 +85,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
IF (LHOOK) CALL DR_HOOK('READ_PREP_WATFLUX_CONF',0,ZHOOK_HANDLE)
-HFILE = ' '
+HFILE = ''
HFILETYPE = ' '
!
-HFILEPGD = ' '
+HFILEPGD = ''
HFILEPGDTYPE = ' '
!
OUNIF = .FALSE.
diff --git a/src/SURFEX/read_seaflux_date.F90 b/src/SURFEX/read_seaflux_date.F90
index 110b7ea6c04c201c1fe16ef299b817c3aebf4f8d..18ab47e1803de212880a1dc96cd43443968472bb 100644
--- a/src/SURFEX/read_seaflux_date.F90
+++ b/src/SURFEX/read_seaflux_date.F90
@@ -46,7 +46,7 @@
USE MODD_OCEAN_n, ONLY : OCEAN_t
!
USE MODD_TYPE_DATE_SURF
-USE MODD_SURF_PAR, ONLY : NUNDEF, XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, NUNDEF, XUNDEF
!
USE MODI_READ_PRE_SEAF_DAT_CONF
USE MODI_READ_PRE_SURFA_DAT_CONF
@@ -68,7 +68,7 @@ LOGICAL, INTENT(IN) :: OMERCATOR
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
CHARACTER(LEN=3), INTENT(IN) :: HINIT ! fields to initialize 'ALL', 'PRE', 'PGD'
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
INTEGER, INTENT(IN) :: KYEAR ! current year (UTC)
INTEGER, INTENT(IN) :: KMONTH ! current month (UTC)
@@ -81,11 +81,11 @@ INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! file name
CHARACTER(LEN=6) :: YFILETYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGD ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! file name
CHARACTER(LEN=6) :: YFILEPGDTYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGDIN ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGDIN ! file name
CHARACTER(LEN=6) :: YFILEPGDINTYPE ! file type
!
LOGICAL :: GUNIF ! flag for prescribed uniform field
@@ -94,10 +94,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('READ_SEAFLUX_DATE',0,ZHOOK_HANDLE)
-YFILE = ' '
+YFILE = ''
YFILETYPE = ' '
!
-YFILEPGDIN = ' '
+YFILEPGDIN = ''
YFILEPGDINTYPE = ' '
!
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/read_surf_atm_date.F90 b/src/SURFEX/read_surf_atm_date.F90
index 1c072fbeadff1244a1fbc045dfb60bbf0d3716ad..160d4dd9bd46d5f324242a4288e2a47b0a742059 100644
--- a/src/SURFEX/read_surf_atm_date.F90
+++ b/src/SURFEX/read_surf_atm_date.F90
@@ -45,7 +45,7 @@
!
!
USE MODD_TYPE_DATE_SURF
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_READ_PRE_SURFA_DAT_CONF
USE MODI_READ_PREP_SURF_ATM_CONF
@@ -67,7 +67,7 @@ IMPLICIT NONE
CHARACTER(LEN=3), INTENT(IN) :: HINIT ! fields to initialize 'ALL', 'PRE', 'PGD'
TYPE (DATE_TIME), INTENT(OUT) :: TPTIME ! time and date
INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
INTEGER, INTENT(IN) :: KYEAR ! current year (UTC)
INTEGER, INTENT(IN) :: KMONTH ! current month (UTC)
@@ -78,21 +78,21 @@ REAL, INTENT(IN) :: PTIME ! current time since midnight (UTC
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! file name
CHARACTER(LEN=6) :: YFILETYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGD ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! file name
CHARACTER(LEN=6) :: YFILEPGDTYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGDIN ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGDIN ! file name
CHARACTER(LEN=6) :: YFILEPGDINTYPE ! file type
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('READ_SURF_ATM_DATE',0,ZHOOK_HANDLE)
-YFILE = ' '
+YFILE = ''
YFILETYPE = ' '
!
-YFILEPGDIN = ' '
+YFILEPGDIN = ''
YFILEPGDINTYPE = ' '
!
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/read_teb_date.F90 b/src/SURFEX/read_teb_date.F90
index 875ce0e70fe9ad615c6796d14dde735afa167abd..914b379fe837cc28547d303e7d5535ca66abefaa 100644
--- a/src/SURFEX/read_teb_date.F90
+++ b/src/SURFEX/read_teb_date.F90
@@ -44,7 +44,7 @@
!
!
USE MODD_TYPE_DATE_SURF
-USE MODD_SURF_PAR, ONLY : NUNDEF, XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, NUNDEF, XUNDEF
!
USE MODI_READ_PREP_TEB_DATE_CONF
USE MODI_READ_PRE_SURFA_DAT_CONF
@@ -65,7 +65,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
CHARACTER(LEN=3), INTENT(IN) :: HINIT ! fields to initialize 'ALL', 'PRE', 'PGD'
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
INTEGER, INTENT(IN) :: KYEAR ! current year (UTC)
INTEGER, INTENT(IN) :: KMONTH ! current month (UTC)
@@ -78,11 +78,11 @@ INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! file name
CHARACTER(LEN=6) :: YFILETYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGD ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! file name
CHARACTER(LEN=6) :: YFILEPGDTYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGDIN ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGDIN ! file name
CHARACTER(LEN=6) :: YFILEPGDINTYPE ! file type
!
LOGICAL :: GUNIF ! flag for prescribed uniform field
@@ -91,10 +91,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('READ_TEB_DATE',0,ZHOOK_HANDLE)
-YFILE = ' '
+YFILE = ''
YFILETYPE = ' '
!
-YFILEPGDIN = ' '
+YFILEPGDIN = ''
YFILEPGDINTYPE = ' '
!
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/read_teb_patch.F90 b/src/SURFEX/read_teb_patch.F90
index 0ae80daffae05e11ededca2d4d7893435844d045..eaf17207e6217c42c6b2b02be60ada5619bf5be7 100644
--- a/src/SURFEX/read_teb_patch.F90
+++ b/src/SURFEX/read_teb_patch.F90
@@ -10,7 +10,7 @@
!
!
USE MODI_READ_SURF
-USE MODD_SURF_PAR, ONLY: LEN_HREC
+USE MODD_SURF_PAR, ONLY: LEN_HREC, NFILENAMELGTMAX
!
USE MODI_OPEN_AUX_IO_SURF
USE MODI_CLOSE_AUX_IO_SURF
@@ -23,7 +23,7 @@ IMPLICIT NONE
!* dummy arguments
! ---------------
!
- CHARACTER(LEN=28), INTENT(IN) :: HFILEPGD ! name of file
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILEPGD ! name of file
CHARACTER(LEN=6), INTENT(IN) :: HFILEPGDTYPE ! type of file
INTEGER, INTENT(IN) :: KVERSION
INTEGER, INTENT(IN) :: KBUGFIX
diff --git a/src/SURFEX/read_watflux_date.F90 b/src/SURFEX/read_watflux_date.F90
index 22038938f37f280c6c83eded08df7433a522d401..94eec935f0b023ac113eeab6fe536a277ea87dc2 100644
--- a/src/SURFEX/read_watflux_date.F90
+++ b/src/SURFEX/read_watflux_date.F90
@@ -43,7 +43,7 @@
!
!
USE MODD_TYPE_DATE_SURF
-USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, NUNDEF
!
USE MODI_READ_PRE_WATF_DAT_CONF
USE MODI_READ_PRE_SURFA_DAT_CONF
@@ -64,7 +64,7 @@ IMPLICIT NONE
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
CHARACTER(LEN=3), INTENT(IN) :: HINIT ! fields to initialize 'ALL', 'PRE', 'PGD'
- CHARACTER(LEN=28), INTENT(IN) :: HATMFILE ! atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HATMFILE ! atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HATMFILETYPE! atmospheric file type
INTEGER, INTENT(IN) :: KYEAR ! current year (UTC)
INTEGER, INTENT(IN) :: KMONTH ! current month (UTC)
@@ -76,11 +76,11 @@ INTEGER, INTENT(IN) :: KLUOUT ! logical unit of output listing
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE ! file name
CHARACTER(LEN=6) :: YFILETYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGD ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGD ! file name
CHARACTER(LEN=6) :: YFILEPGDTYPE ! file type
- CHARACTER(LEN=28) :: YFILEPGDIN ! file name
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEPGDIN ! file name
CHARACTER(LEN=6) :: YFILEPGDINTYPE ! file type
!
LOGICAL :: GUNIF ! flag for prescribed uniform field
@@ -89,10 +89,10 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('READ_WATFLUX_DATE',0,ZHOOK_HANDLE)
-YFILE = ' '
+YFILE = ''
YFILETYPE = ' '
!
-YFILEPGDIN = ' '
+YFILEPGDIN = ''
YFILEPGDINTYPE = ' '
!
!-------------------------------------------------------------------------------
diff --git a/src/SURFEX/read_z1d_netcdf.F90 b/src/SURFEX/read_z1d_netcdf.F90
index e60057624d151523735dfbd339b08deff7972824..68564acf0ffa72d1cf441a727609c27a0a94ec0a 100644
--- a/src/SURFEX/read_z1d_netcdf.F90
+++ b/src/SURFEX/read_z1d_netcdf.F90
@@ -30,7 +30,7 @@
!
use modd_netcdf_sfx, only : IDCDF_KIND
USE MODD_OCEAN_GRID
-USE MODD_SURF_PAR, ONLY : NUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, NUNDEF
USE MODD_PREP_SEAFLUX, ONLY : CFILE_SEAFLX,CTYPE_SEAFLX
USE MODE_READ_NETCDF_MERCATOR
!
@@ -42,7 +42,7 @@ IMPLICIT NONE
!* 0.1 Declaration of arguments
! ------------------------
!
-CHARACTER (LEN=28) :: YFILENAME
+CHARACTER (LEN=NFILENAMELGTMAX) :: YFILENAME
CHARACTER (LEN=28) :: YNCVARNAME
INTEGER(kind=IDCDF_KIND) :: JDIMENSION
!
diff --git a/src/SURFEX/set_surfex_file_name_asc.F90 b/src/SURFEX/set_surfex_file_name_asc.F90
index bfef263f9a2574eb30423c9b45585f67f690c8cd..3f140fe2fcc6edc9a91693c8583924c05da90c5a 100644
--- a/src/SURFEX/set_surfex_file_name_asc.F90
+++ b/src/SURFEX/set_surfex_file_name_asc.F90
@@ -5,14 +5,15 @@
SUBROUTINE SET_SURFEX_FILE_NAME_ASC(HNAME_IN,HNAME_OUT)
!
USE MODD_IO_SURF_ASC, ONLY : CFILEIN
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
IMPLICIT NONE
!
- CHARACTER(LEN=28), OPTIONAL, INTENT(IN) :: HNAME_IN
- CHARACTER(LEN=28), OPTIONAL, INTENT(OUT) :: HNAME_OUT
+ CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(IN) :: HNAME_IN
+ CHARACTER(LEN=NFILENAMELGTMAX), OPTIONAL, INTENT(OUT) :: HNAME_OUT
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
IF (LHOOK) CALL DR_HOOK('SET_SURFEX_FILE_NAME_ASC',0,ZHOOK_HANDLE)
diff --git a/src/SURFEX/set_surfex_filein.F90 b/src/SURFEX/set_surfex_filein.F90
index 0d3647e4c0c4bd0700b33a7dabf8c20542f26155..2a38891c293e2a28305a880099109306c5fe8ba2 100644
--- a/src/SURFEX/set_surfex_filein.F90
+++ b/src/SURFEX/set_surfex_filein.F90
@@ -64,6 +64,8 @@ USE MODI_SET_SURFEX_FILE_NAME_ARO
!
USE MODI_ABOR1_SFX
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -80,7 +82,7 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!* 0.2 Declarations of local variables
! -------------------------------
!
- CHARACTER(LEN=28) :: YFILE
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILE
!
!-------------------------------------------------------------------------------
!
diff --git a/src/SURFEX/sfx_oasis_init.F90 b/src/SURFEX/sfx_oasis_init.F90
index 70395094268510f7f759f827891049d0ca3e4765..d4f9968918dad6b44959636dad820e0743d81b72 100644
--- a/src/SURFEX/sfx_oasis_init.F90
+++ b/src/SURFEX/sfx_oasis_init.F90
@@ -60,6 +60,8 @@ USE MODI_ABOR1_SFX
!
USE MODD_XIOS , ONLY : LXIOS ! Should we call XIOS_INITIALIZE instead of OASIS_GET_LOCAL_COMM
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
#ifdef WXIOS
USE XIOS, ONLY : XIOS_INITIALIZE
#endif
@@ -80,7 +82,7 @@ INCLUDE 'mpif.h'
!* 0.1 Declarations of arguments
! -------------------------
!
- CHARACTER(LEN=28), INTENT(IN ) :: HNAMELIST
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN ) :: HNAMELIST
INTEGER, INTENT(OUT) :: KLOCAL_COMM ! value of local communicator
CHARACTER(LEN=3), INTENT(IN ), OPTIONAL :: HINIT ! choice of fields to initialize
!
diff --git a/src/SURFEX/soda.F90 b/src/SURFEX/soda.F90
index 164a9be91a2fde034aa46a3f8f232b6fa56ad1e9..b5c19769623091f2bcd91bc82999461138073abd 100644
--- a/src/SURFEX/soda.F90
+++ b/src/SURFEX/soda.F90
@@ -136,6 +136,8 @@ USE MODI_TEST_NAM_VAR_SURF
USE MODI_INIT_OUTPUT_NC_n
USE MODI_CLOSE_FILEOUT_OL
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE MODE_EKF, ONLY : GET_FILE_NAME, SET_FILEIN
!
USE YOMHOOK, ONLY : LHOOK,DR_HOOK
@@ -158,12 +160,12 @@ TYPE(DATE) :: TDATE_END
CHARACTER(LEN=200) :: YMFILE ! Name of the observation, perturbed or reference file!
CHARACTER(LEN=3) :: YINIT
CHARACTER(LEN=2), PARAMETER :: YTEST = 'OK' ! must be equal to 'OK'
- CHARACTER(LEN=28) :: YATMFILE =' ' ! name of the Atmospheric file
- CHARACTER(LEN=6) :: YATMFILETYPE =' ' ! type of the Atmospheric file
- CHARACTER(LEN=28) :: YLUOUT ='LISTING_SODA ' ! name of listing
- CHARACTER(LEN=6) :: YPROGRAM2 = 'FA '
- CHARACTER(LEN=28) :: YFILEIN
- CHARACTER(LEN=3) :: YVAR
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YATMFILE = '' ! name of the Atmospheric file
+ CHARACTER(LEN=6) :: YATMFILETYPE = ' ' ! type of the Atmospheric file
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YLUOUT = 'LISTING_SODA' ! name of listing
+ CHARACTER(LEN=6) :: YPROGRAM2 = 'FA '
+ CHARACTER(LEN=NFILENAMELGTMAX) :: YFILEIN
+ CHARACTER(LEN=3) :: YVAR
!
CHARACTER(LEN=100) :: YNAME
CHARACTER(LEN=10) :: YRANK
diff --git a/src/SURFEX/treat_bathyfield.F90 b/src/SURFEX/treat_bathyfield.F90
index 616da4fc47aed16d576ed50dd63196c2ff837eca..d764deb6232cbab58a1b799b10c4e69129f493a2 100644
--- a/src/SURFEX/treat_bathyfield.F90
+++ b/src/SURFEX/treat_bathyfield.F90
@@ -49,7 +49,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGDWORK, ONLY : NSIZE, NSIZE_ALL, XALL, XSUMVAL
!
USE MODD_SURFEX_MPI, ONLY : NRANK, NPIO, NPROC, NCOMM, NREQ, NINDEX, IDX_R, &
@@ -94,7 +94,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=6), INTENT(IN) :: HSCHEME ! Scheme treated
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! Type of the data file
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
CHARACTER(LEN=28), INTENT(IN) :: HNCVARNAME ! Name of the variable in netcdf file
CHARACTER(LEN=20), INTENT(IN) :: HFIELD ! Name of the field.
REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PPGDARRAY ! field on MESONH grid
diff --git a/src/SURFEX/treat_field.F90 b/src/SURFEX/treat_field.F90
index 1621ccdbde6a2a8a436c807c47ec27bfea3ab045..204492403e3f1dfbe168684830eb2f1422591ed2 100644
--- a/src/SURFEX/treat_field.F90
+++ b/src/SURFEX/treat_field.F90
@@ -58,7 +58,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_PGDWORK, ONLY : NSIZE, NSIZE_ALL, XALL, NSSO_ALL, XSSO_ALL, &
XSUMVAL, XEXT_ALL, CATYPE, &
XSSQO, LSSQO, NSSO, XMIN_WORK, XMAX_WORK, &
@@ -112,7 +112,7 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
CHARACTER(LEN=6), INTENT(IN) :: HSCHEME ! Scheme treated
CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! Type of the data file
CHARACTER(LEN=6), INTENT(IN) :: HSUBROUTINE ! Name of the subroutine to call
- CHARACTER(LEN=28), INTENT(IN) :: HFILENAME ! Name of the field file.
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILENAME ! Name of the field file.
CHARACTER(LEN=20), INTENT(IN) :: HFIELD ! Name of the field.
REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PPGDARRAY ! field on MESONH grid
!
diff --git a/src/SURFEX/zoom_pgd_cover.F90 b/src/SURFEX/zoom_pgd_cover.F90
index 48e6b7a171e3da685dc243f737df2be769fc2a63..c272decc4b7be3f576097ae632384d7c66f29543 100644
--- a/src/SURFEX/zoom_pgd_cover.F90
+++ b/src/SURFEX/zoom_pgd_cover.F90
@@ -51,7 +51,7 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF,LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
!
@@ -92,7 +92,7 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
LOGICAL, INTENT(OUT) :: OECOCLIMAP ! flag to use ecoclimap
!
diff --git a/src/SURFEX/zoom_pgd_inland_water.F90 b/src/SURFEX/zoom_pgd_inland_water.F90
index 325f8426694ea780257515ccf4fb2fa20cef3103..9aa3af0ee5cbf2cd6f78b8f4ec9313af82e8ca6a 100644
--- a/src/SURFEX/zoom_pgd_inland_water.F90
+++ b/src/SURFEX/zoom_pgd_inland_water.F90
@@ -55,6 +55,8 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
USE MODD_WATFLUX_n, ONLY : WATFLUX_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -75,12 +77,12 @@ TYPE(SSO_t), INTENT(INOUT) :: USS
TYPE(GRID_t), INTENT(INOUT) :: WG
TYPE(WATFLUX_t), INTENT(INOUT) :: W
!
-CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
-CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
-CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
-CHARACTER(LEN=28), INTENT(IN) :: HFILE ! output file name
-CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
-LOGICAL, INTENT(IN) :: OECOCLIMAP
+CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
+CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! output file name
+CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
+LOGICAL, INTENT(IN) :: OECOCLIMAP
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
diff --git a/src/SURFEX/zoom_pgd_isba.F90 b/src/SURFEX/zoom_pgd_isba.F90
index 4ea66e8b9705691121468ba2018d68478da4b08d..cdcc01f015cf618e3a3a093c528f2eb33210c472 100644
--- a/src/SURFEX/zoom_pgd_isba.F90
+++ b/src/SURFEX/zoom_pgd_isba.F90
@@ -56,7 +56,7 @@ USE MODD_SURF_PAR, ONLY : LEN_HREC
USE MODD_SSO_n, ONLY : SSO_t
USE MODD_MEGAN_SURF_FIELDS_n, ONLY : MEGAN_SURF_FIELDS_t
!
-USE MODD_SURF_PAR, ONLY : XUNDEF
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER
USE MODD_ISBA_PAR, ONLY : XOPTIMGRID
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE
@@ -99,12 +99,12 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(SSO_t), INTENT(INOUT) :: USS
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! output file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
-LOGICAL, INTENT(IN) :: OECOCLIMAP ! flag to use ecoclimap
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! output file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
+LOGICAL, INTENT(IN) :: OECOCLIMAP ! flag to use ecoclimap
!
!
!* 0.2 Declaration of local variables
diff --git a/src/SURFEX/zoom_pgd_isba_full.F90 b/src/SURFEX/zoom_pgd_isba_full.F90
index a63024f15d6e45cd7d83b3112e30d0ec19617f0f..da79dd3ed93732d8f0b6ddce87c0626075a71929 100644
--- a/src/SURFEX/zoom_pgd_isba_full.F90
+++ b/src/SURFEX/zoom_pgd_isba_full.F90
@@ -56,6 +56,7 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE, LINTERP
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX
!
USE MODD_TYPE_DATE_SURF, ONLY : DATE
!
@@ -92,9 +93,9 @@ TYPE(SURF_ATM_GRID_t), INTENT(INOUT) :: UG
TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE ! input atmospheric file type
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE ! input atmospheric file type
!
!* 0.2 Declaration of local variables
! ------------------------------
diff --git a/src/SURFEX/zoom_pgd_nature.F90 b/src/SURFEX/zoom_pgd_nature.F90
index aece2f924609c5a51af92a905a355e89392aaf23..804637c8e5f7d062eed563f9e4a05633602ba51b 100644
--- a/src/SURFEX/zoom_pgd_nature.F90
+++ b/src/SURFEX/zoom_pgd_nature.F90
@@ -48,6 +48,8 @@ USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_SSO_n, ONLY : SSO_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -66,12 +68,12 @@ TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(SSO_t), INTENT(INOUT) :: USS
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! output file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
-LOGICAL, INTENT(IN) :: OECOCLIMAP ! flag to use ecoclimap
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! output file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
+LOGICAL, INTENT(IN) :: OECOCLIMAP ! flag to use ecoclimap
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
diff --git a/src/SURFEX/zoom_pgd_orography.F90 b/src/SURFEX/zoom_pgd_orography.F90
index 24ecb4ed7c51d8b6b65a6d61c3b6a5b51340aa96..24b52d79bec4327a29fffc760fa10b52172384c6 100644
--- a/src/SURFEX/zoom_pgd_orography.F90
+++ b/src/SURFEX/zoom_pgd_orography.F90
@@ -48,7 +48,7 @@ USE MODD_SSO_n, ONLY : SSO_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE, LINTERP
-USE MODD_SURF_PAR, ONLY : XUNDEF,LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
!
USE MODI_OPEN_AUX_IO_SURF
USE MODI_READ_SURF
@@ -84,8 +84,8 @@ TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
REAL, DIMENSION(:), INTENT(IN) :: PSEA ! sea fraction
REAL, DIMENSION(:), INTENT(IN) :: PWATER ! inland water fraction
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
!
!
!* 0.2 Declaration of local variables
diff --git a/src/SURFEX/zoom_pgd_sea.F90 b/src/SURFEX/zoom_pgd_sea.F90
index 6f8b761a62d616a7031197bc6d97ede9ca9ca642..2970c32addcc026d0e749ee8d95fcce21befb0f9 100644
--- a/src/SURFEX/zoom_pgd_sea.F90
+++ b/src/SURFEX/zoom_pgd_sea.F90
@@ -48,6 +48,8 @@ USE MODD_SURF_ATM_GRID_n, ONLY : SURF_ATM_GRID_t
USE MODD_SURF_ATM_n, ONLY : SURF_ATM_t
USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -66,11 +68,11 @@ TYPE(SURF_ATM_GRID_t), INTENT(INOUT) :: UG
TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! output file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! output file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!
diff --git a/src/SURFEX/zoom_pgd_seaflux.F90 b/src/SURFEX/zoom_pgd_seaflux.F90
index 25b314bdd09c9cdf150bb3e1c36eaaee6e8e4074..3740ffcd9f3a60804e10ca6e59ad424ef8a1f194 100644
--- a/src/SURFEX/zoom_pgd_seaflux.F90
+++ b/src/SURFEX/zoom_pgd_seaflux.F90
@@ -52,6 +52,7 @@ USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
!
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE, LINTERP
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
!
!
USE MODI_GET_LUOUT
@@ -87,11 +88,11 @@ TYPE(SURF_ATM_GRID_t), INTENT(INOUT) :: UG
TYPE(SURF_ATM_t), INTENT(INOUT) :: U
TYPE(GRID_CONF_PROJ_t),INTENT(INOUT) :: GCP
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! output file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! output file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
!
!
!* 0.2 Declaration of local variables
diff --git a/src/SURFEX/zoom_pgd_surf_atm.F90 b/src/SURFEX/zoom_pgd_surf_atm.F90
index aa3625fcf00a3ad153b02a08e2acfc6981fe03c9..975b2edb5ff0d83d07c7cd2209f4bcf117cc80d1 100644
--- a/src/SURFEX/zoom_pgd_surf_atm.F90
+++ b/src/SURFEX/zoom_pgd_surf_atm.F90
@@ -61,6 +61,8 @@ USE MODI_ZOOM_PGD_TOWN
USE MODI_READ_COVER_GARDEN
USE MODI_GOTO_MODEL_MNH
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -72,11 +74,11 @@ IMPLICIT NONE
!
TYPE(SURFEX_t), INTENT(INOUT) :: YSC
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! output atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output atmospheric file type
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! output atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output atmospheric file type
!
!
!* 0.2 Declaration of local variables
diff --git a/src/SURFEX/zoom_pgd_teb.F90 b/src/SURFEX/zoom_pgd_teb.F90
index 329ad941262d051a91f88ddd9a3722dbd0ca7397..e3051bdb0caea8641c0609249325030c49e6d694 100644
--- a/src/SURFEX/zoom_pgd_teb.F90
+++ b/src/SURFEX/zoom_pgd_teb.F90
@@ -58,7 +58,7 @@ USE MODD_TEB_OPTION_n, ONLY : TEB_OPTIONS_t
!
USE MODD_DATA_COVER_PAR, ONLY : JPCOVER
!
-USE MODD_SURF_PAR, ONLY : XUNDEF,LEN_HREC
+USE MODD_SURF_PAR, ONLY : NFILENAMELGTMAX, XUNDEF, LEN_HREC
USE MODD_PREP, ONLY : CINGRID_TYPE, CINTERP_TYPE, LINTERP
USE MODD_ISBA_PAR, ONLY : XOPTIMGRID
!
@@ -104,7 +104,7 @@ TYPE(TEB_OPTIONS_t), INTENT(INOUT) :: TOP
TYPE(DATA_TEB_HYDRO_t), INTENT(INOUT) :: DTH
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! file to read
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! file to read
CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! file type
LOGICAL, INTENT(IN) :: OECOCLIMAP ! flag to use ecoclimap
LOGICAL, INTENT(IN) :: OGARDEN ! flag to use garden
diff --git a/src/SURFEX/zoom_pgd_town.F90 b/src/SURFEX/zoom_pgd_town.F90
index 3df0cad7e375ae969f9ca182e0f9c44b120b5c9d..66fd200e29e0bb5e61f6f7c548a0ac6011788652 100644
--- a/src/SURFEX/zoom_pgd_town.F90
+++ b/src/SURFEX/zoom_pgd_town.F90
@@ -57,6 +57,8 @@ USE MODD_GRID_CONF_PROJ_n, ONLY : GRID_CONF_PROJ_t
USE MODD_SFX_GRID_n, ONLY : GRID_t
USE MODD_TEB_OPTION_n, ONLY : TEB_OPTIONS_t
!
+USE MODD_SURF_PAR, ONLY: NFILENAMELGTMAX
+!
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
USE PARKIND1 ,ONLY : JPRB
!
@@ -81,11 +83,11 @@ TYPE(GRID_t), INTENT(INOUT) :: TG
TYPE(TEB_OPTIONS_t), INTENT(INOUT) :: TOP
TYPE(DATA_TEB_HYDRO_t), INTENT(INOUT) :: DTH
!
- CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
- CHARACTER(LEN=28), INTENT(IN) :: HINIFILE ! input atmospheric file name
- CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
- CHARACTER(LEN=28), INTENT(IN) :: HFILE ! output file name
- CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
+ CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HINIFILE ! input atmospheric file name
+ CHARACTER(LEN=6), INTENT(IN) :: HINIFILETYPE! input atmospheric file type
+ CHARACTER(LEN=NFILENAMELGTMAX), INTENT(IN) :: HFILE ! output file name
+ CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE ! output file type
LOGICAL, INTENT(IN) :: OECOCLIMAP ! flag to use ecoclimap
LOGICAL, INTENT(IN) :: OGARDEN ! flag to use garden
REAL(KIND=JPRB) :: ZHOOK_HANDLE