diff --git a/src/SURFEX/build_emisstabn.F90 b/src/SURFEX/build_emisstabn.F90
index b4c19af0093cf32413f63c2be7a52dce14413156..e964a7cf77884a30c44a2c3189226e6efcac88db 100644
--- a/src/SURFEX/build_emisstabn.F90
+++ b/src/SURFEX/build_emisstabn.F90
@@ -85,7 +85,7 @@ INTEGER :: IIND1, IIND2
INTEGER :: JSPEC ! loop index
INTEGER :: ITIME ! loop index
INTEGER :: IWS_DEFAULT ! Default Memory window size for emission reading
- CHARACTER (LEN=16):: YRECFM ! LFI article name
+CHARACTER (LEN=LEN_HREC):: YRECFM ! LFI article name
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
diff --git a/src/SURFEX/ch_emission_fluxn.F90 b/src/SURFEX/ch_emission_fluxn.F90
index 49d78215932c63110ccc6e4fad7403f91bfab5db..cb6bfb7f2f2021318b5e995ab74ff88b646c1703 100644
--- a/src/SURFEX/ch_emission_fluxn.F90
+++ b/src/SURFEX/ch_emission_fluxn.F90
@@ -89,7 +89,7 @@ INTEGER :: INBTS ! Number of emission times for a species
INTEGER :: ITIM1,ITIM2 ! first/last time for interpolation
INTEGER :: INDX1,INDX2 ! first/next index for data interpolation
INTEGER :: ISIMTIME, ITPERIOD
- CHARACTER (LEN=16) :: YRECFM ! LFI article name
+CHARACTER (LEN=LEN_HREC) :: YRECFM ! LFI article name
TYPE(PRONOSVAR_T),POINTER :: CURPRONOS !Current pronostic variable
!
!* 0.3 declaration of saved local variables
diff --git a/src/SURFEX/ch_init_snapn.F90 b/src/SURFEX/ch_init_snapn.F90
index 576767089d8c12548f29786d2a11621566bf4c36..e9ead2aa00466f8f7a13397dda711591a82f18c4 100644
--- a/src/SURFEX/ch_init_snapn.F90
+++ b/src/SURFEX/ch_init_snapn.F90
@@ -82,7 +82,7 @@ INTEGER :: ISNAP
INTEGER :: IRESP ! File
INTEGER :: ILUOUT ! output listing logical unit
CHARACTER (LEN=3) :: YCONVERSION
- CHARACTER (LEN=16) :: YRECFM ! management
+ CHARACTER (LEN=LEN_HREC) :: YRECFM ! management
CHARACTER (LEN=100) :: YCOMMENT ! variables
INTEGER :: JSPEC ! Loop index for chemical species
INTEGER :: JSNAP ! Loop index for SNAP categories
diff --git a/src/SURFEX/get_iok_assim.F90 b/src/SURFEX/get_iok_assim.F90
index 95361b240a5a39046809da58b55c34ce99d5cd34..0f96c4c1e406966acc3a2c31e1f701c1216d8fb0 100644
--- a/src/SURFEX/get_iok_assim.F90
+++ b/src/SURFEX/get_iok_assim.F90
@@ -11,7 +11,7 @@ USE PARKIND1 ,ONLY : JPRB
!
IMPLICIT NONE
!
- CHARACTER(LEN=16), INTENT(IN) :: HREC
+ CHARACTER(LEN=LEN_HREC), INTENT(IN) :: HREC
INTEGER, INTENT(OUT) :: KOK
!
INTEGER :: ILEN
diff --git a/src/SURFEX/mode_read_surf_cov.F90 b/src/SURFEX/mode_read_surf_cov.F90
index b4077f1e58e94d47713de4613c7f2d0e3d1f4b39..311fe54e8a5e881c17b89ba417346da6fb66f39d 100644
--- a/src/SURFEX/mode_read_surf_cov.F90
+++ b/src/SURFEX/mode_read_surf_cov.F90
@@ -48,7 +48,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=100) :: YCOMMENT
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
INTEGER :: JJ
INTEGER :: JCOVER
diff --git a/src/SURFEX/old_name.F90 b/src/SURFEX/old_name.F90
index d3a92baa5f9e42cb634c0ea52fda91423bbabca0..ddaf96dc44aeb440a47fcd28271ff763f87fa080 100644
--- a/src/SURFEX/old_name.F90
+++ b/src/SURFEX/old_name.F90
@@ -56,8 +56,8 @@ IMPLICIT NONE
!
!
CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! main program
- CHARACTER(LEN=LEN_HREC), INTENT(IN) :: HRECIN ! name of field to be read
- CHARACTER(LEN=LEN_HREC), INTENT(OUT) :: HRECOUT ! name of field to be read is old file
+ CHARACTER(LEN=*), INTENT(IN) :: HRECIN ! name of field to be read
+ CHARACTER(LEN=*), INTENT(OUT) :: HRECOUT ! name of field to be read is old file
!
!
!* 0.2 Declarations of local variables
diff --git a/src/SURFEX/prep_hor_snow_fields.F90 b/src/SURFEX/prep_hor_snow_fields.F90
index bf968b142f21b89af0d03a9b1ddf84157bc9a1d7..e844d00a78f5f0a30fc0a860856150e4f28104c1 100644
--- a/src/SURFEX/prep_hor_snow_fields.F90
+++ b/src/SURFEX/prep_hor_snow_fields.F90
@@ -130,7 +130,7 @@ REAL,DIMENSION(:,:,:), ALLOCATABLE :: ZVEGTYPE_PATCH ! fraction of each vegt
INTEGER :: JPATCH ! loop counter on patches
INTEGER :: JLAYER ! loop counter on layers
INTEGER :: IVERSION ! surface version
- CHARACTER(LEN=16) :: YRECFM ! record name
+CHARACTER(LEN=LEN_HREC) :: YRECFM ! record name
INTEGER :: IRESP ! error return code
LOGICAL :: GGLACIER
!
diff --git a/src/SURFEX/read_surf.F90 b/src/SURFEX/read_surf.F90
index 4fdd753700246a40d6421d4b726e503f31d6645a..71dd5c6221f72a03126744adcb40f81b25de2c34 100644
--- a/src/SURFEX/read_surf.F90
+++ b/src/SURFEX/read_surf.F90
@@ -273,7 +273,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem ap
!
!* 0.2 Declarations of local variables
!
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
REAL :: XTIME0
INTEGER :: INFOMPI
@@ -424,7 +424,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem ap
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=100) :: YCOMMENT
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
INTEGER :: IL, IOK
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -550,7 +550,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=100) :: YCOMMENT
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
INTEGER :: IL1, IL2, IOK
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -657,7 +657,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a proble
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=100) :: YCOMMENT
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
INTEGER :: IL1, IL2, IL3
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -752,7 +752,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem app
!
!* 0.2 Declarations of local variables
!
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
REAL :: XTIME0
INTEGER :: INFOMPI
@@ -905,7 +905,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=100) :: YCOMMENT
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
INTEGER :: IL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -1019,7 +1019,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem ap
!
!* 0.2 Declarations of local variables
!
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
REAL :: XTIME0
INTEGER :: INFOMPI
@@ -1164,7 +1164,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem appe
!
!* 0.2 Declarations of local variables
!
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
REAL :: XTIME0
INTEGER :: INFOMPI
@@ -1305,7 +1305,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=100) :: YCOMMENT
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
INTEGER :: IL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -1413,7 +1413,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem app
!
!* 0.2 Declarations of local variables
!
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
!
REAL :: XTIME0
@@ -1586,7 +1586,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem a
!
!* 0.2 Declarations of local variables
!
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
INTEGER :: ILUOUT
INTEGER :: INFOMPI
@@ -1755,7 +1755,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem app
!
!* 0.2 Declarations of local variables
!
- CHARACTER(LEN=16) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
CHARACTER(LEN=1) :: YDIR
INTEGER :: ILUOUT
INTEGER :: INFOMPI
diff --git a/src/SURFEX/write_bld_descriptionn.F90 b/src/SURFEX/write_bld_descriptionn.F90
index 2b00c1dbf5cc784cba1dacdad41b0afca1038d16..4f5bbd0c05cb19efec2f9f98433d2432b7f83980 100644
--- a/src/SURFEX/write_bld_descriptionn.F90
+++ b/src/SURFEX/write_bld_descriptionn.F90
@@ -81,7 +81,8 @@ INTEGER :: IRESP
INTEGER :: I1, I2
INTEGER :: JL
INTEGER :: ITOT
- CHARACTER(LEN=100) :: YCOMMENT
+CHARACTER(LEN=LEN_HREC) :: YRECFM
+CHARACTER(LEN=100) :: YCOMMENT
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
!
@@ -102,9 +103,10 @@ ZWORK(5) = FLOAT(BDD%NDESC_ROOF_LAYER)
ZWORK(6) = FLOAT(BDD%NDESC_ROAD_LAYER)
ZWORK(7) = FLOAT(BDD%NDESC_FLOOR_LAYER)
!
+YRECFM='Bld_dimensions'
YCOMMENT='Configuration numbers for descriptive building data'
CALL WRITE_SURF(DGU, U, &
- HPROGRAM,'BLD_DESC_CNF',ZWORK,IRESP,YCOMMENT,'-','Bld_dimensions ')
+ HPROGRAM,'BLD_DESC_CNF',ZWORK,IRESP,YCOMMENT,'-',YRECFM)
DEALLOCATE(ZWORK)
!
!-------------------------------------------------------------------------------
@@ -192,9 +194,10 @@ END DO
CALL UP_DESC_IND_W(BDD%NDESC_AGE) ; ZWORK(I1:I2) = FLOAT(BDD%NDESC_AGE_LIST(:))
CALL UP_DESC_IND_W(BDD%NDESC_AGE) ; ZWORK(I1:I2) = FLOAT(BDD%NDESC_AGE_DATE(:))
!
+YRECFM='Bld_parameters '
YCOMMENT='Descriptive building data'
CALL WRITE_SURF(DGU, U, &
- HPROGRAM,'BLD_DESC_DAT',ZWORK,IRESP,YCOMMENT,'-','Bld_parameters ')
+ HPROGRAM,'BLD_DESC_DAT',ZWORK,IRESP,YCOMMENT,'-',YRECFM)
DEALLOCATE(ZWORK)
!
IF (LHOOK) CALL DR_HOOK('WRITE_BLD_DESCRIPTION_n',1,ZHOOK_HANDLE)
diff --git a/src/SURFEX/write_diag_ch_snapn.F90 b/src/SURFEX/write_diag_ch_snapn.F90
index d20efe15c4664eb9114891ef46ecce961cc3c843..1ccf147fcf9b71a2ce7ca0adfc7f5b7e2d6112a1 100644
--- a/src/SURFEX/write_diag_ch_snapn.F90
+++ b/src/SURFEX/write_diag_ch_snapn.F90
@@ -67,7 +67,7 @@ TYPE(CH_EMIS_SNAP_t), INTENT(INOUT) :: CHN
!
INTEGER :: IRESP ! IRESP : return-code if a problem appears
- CHARACTER(LEN=16) :: YRECFM ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM ! Name of the article to be read
CHARACTER(LEN=100):: YCOMMENT ! Comment string
!
INTEGER :: JSPEC
diff --git a/src/SURFEX/write_surf.F90 b/src/SURFEX/write_surf.F90
index 12c51ed98518795a1e1859c54dd2f1b3886143e4..72920d7ebefdef9daf4302f991909d9f4ea02a76 100644
--- a/src/SURFEX/write_surf.F90
+++ b/src/SURFEX/write_surf.F90
@@ -50,7 +50,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem
! ! 'H' : field with
! ! horizontal spatial dim.
! ! '-' : no horizontal dim.
- CHARACTER(LEN=LEN_HREC), OPTIONAL, INTENT(IN) :: HNAM_DIM
+ CHARACTER(LEN=16), OPTIONAL, INTENT(IN) :: HNAM_DIM
END SUBROUTINE WRITE_SURFX1
!
SUBROUTINE WRITE_SURFX2 (DGU, U, &
@@ -71,7 +71,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a proble
! ! 'H' : field with
! ! horizontal spatial dim.
! ! '-' : no horizontal dim.
- CHARACTER(LEN=LEN_HREC), OPTIONAL, INTENT(IN) :: HNAM_DIM
+ CHARACTER(LEN=16), OPTIONAL, INTENT(IN) :: HNAM_DIM
END SUBROUTINE WRITE_SURFX2
!
!RJ: interface to WRITE_SURFX2COV moved out
@@ -111,7 +111,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a probl
! ! 'H' : field with
! ! horizontal spatial dim.
! ! '-' : no horizontal dim.
- CHARACTER(LEN=LEN_HREC), OPTIONAL, INTENT(IN) :: HNAM_DIM
+ CHARACTER(LEN=16), OPTIONAL, INTENT(IN) :: HNAM_DIM
END SUBROUTINE WRITE_SURFN1
!
SUBROUTINE WRITE_SURFC0 (DGU, U, &
@@ -453,7 +453,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a problem
! ! 'H' : field with
! ! horizontal spatial dim.
! ! '-' : no horizontal dim.
- CHARACTER(LEN=LEN_HREC), OPTIONAL, INTENT(IN) :: HNAM_DIM
+ CHARACTER(LEN=16), OPTIONAL, INTENT(IN) :: HNAM_DIM
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=LEN_HREC) :: YREC
@@ -606,7 +606,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a proble
! ! 'H' : field with
! ! horizontal spatial dim.
! ! '-' : no horizontal dim.
- CHARACTER(LEN=LEN_HREC), OPTIONAL, INTENT(IN) :: HNAM_DIM
+ CHARACTER(LEN=16), OPTIONAL, INTENT(IN) :: HNAM_DIM
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=LEN_HREC) :: YREC
@@ -919,7 +919,7 @@ INTEGER, INTENT(OUT) :: KRESP ! KRESP : return-code if a probl
! ! 'H' : field with
! ! horizontal spatial dim.
! ! '-' : no horizontal dim.
- CHARACTER(LEN=LEN_HREC), OPTIONAL, INTENT(IN) :: HNAM_DIM
+ CHARACTER(LEN=16), OPTIONAL, INTENT(IN) :: HNAM_DIM
!* 0.2 Declarations of local variables
!
CHARACTER(LEN=LEN_HREC) :: YREC
diff --git a/src/SURFEX/writesurf_snapn.F90 b/src/SURFEX/writesurf_snapn.F90
index 4efed20c28ffe8444dad4c7e784965e643c4bae5..649ef1057e8938585d9d410d248076680d4a856d 100644
--- a/src/SURFEX/writesurf_snapn.F90
+++ b/src/SURFEX/writesurf_snapn.F90
@@ -44,9 +44,9 @@ TYPE(CH_EMIS_SNAP_t), INTENT(INOUT) :: CHN
!* 0.2 declarations of local variables
!
INTEGER :: IRESP ! I/O error code
- CHARACTER (LEN=16) :: YRECFM ! article name
- CHARACTER (LEN=100) :: YCOMMENT ! comment
- CHARACTER(LEN=100):: YCOMMENTUNIT ! Comment string : unit of the datas in the field to write
+CHARACTER(LEN=LEN_HREC) :: YRECFM ! article name
+CHARACTER(LEN=100) :: YCOMMENT ! comment
+CHARACTER(LEN=100) :: YCOMMENTUNIT ! Comment string : unit of the datas in the field to write
INTEGER :: ILUOUT ! Unit number for prints
INTEGER :: JSPEC ! Loop index for emission species
INTEGER :: JSNAP ! Loop index for SNAP categories
diff --git a/src/SURFEX/zoom_pgd_cover.F90 b/src/SURFEX/zoom_pgd_cover.F90
index f0ab22b287ab661aabc4a41336b0c3985c8c60f2..a32fab0e0a2e877df75a9e599f34b88008e21248 100644
--- a/src/SURFEX/zoom_pgd_cover.F90
+++ b/src/SURFEX/zoom_pgd_cover.F90
@@ -119,7 +119,7 @@ REAL, DIMENSION(:,:), POINTER :: ZCOVER
REAL, DIMENSION(:,:), POINTER :: ZSEA1, ZWATER1, ZNATURE1, ZTOWN1
REAL, DIMENSION(:,:), POINTER :: ZSEA2, ZWATER2, ZNATURE2, ZTOWN2
REAL, DIMENSION(:), ALLOCATABLE :: ZSUM
- CHARACTER(LEN=16) :: YRECFM ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM ! Name of the article to be read
CHARACTER(LEN=100) :: YCOMMENT
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!------------------------------------------------------------------------------