Juan 8/12/2016: add management of LEN_HREC in MNH & SURFEX
authorJuan Escobar <escj@aero.obs-mip.fr>
Thu, 8 Dec 2016 09:59:54 +0000 (10:59 +0100)
committerJuan Escobar <escj@aero.obs-mip.fr>
Thu, 8 Dec 2016 10:02:02 +0000 (11:02 +0100)
136 files changed:
conf/profile_mesonh.ihm
src/MNH/mode_RBK90_Integrator.f90
src/MNH/modeln.f90
src/MNH/read_all_data_grib_case.f90
src/MNH/write_surf_mnh.f90
src/Makefile.MESONH.mk
src/SURFEX/alloc_diag_surf_atmn.F90
src/SURFEX/build_pronoslistn.F90
src/SURFEX/ch_init_emissionn.F90
src/SURFEX/default_diag_surf_atm.F90
src/SURFEX/diag_isba_initn.F90
src/SURFEX/diag_misc_teb_initn.F90
src/SURFEX/diag_seaflux_initn.F90
src/SURFEX/diag_teb_garden_initn.F90
src/SURFEX/diag_teb_greenroof_initn.F90
src/SURFEX/diag_teb_initn.F90
src/SURFEX/diag_watflux_initn.F90
src/SURFEX/get_teb_depths.F90
src/SURFEX/init_teb_veg_optionsn.F90
src/SURFEX/io_buffn.F90
src/SURFEX/modd_ch_snapn.F90
src/SURFEX/modd_diag_surf_atmn.F90
src/SURFEX/modd_io_buffn.F90
src/SURFEX/mode_read_extern.F90
src/SURFEX/mode_write_surf_asc.F90
src/SURFEX/mode_write_surf_fa.F90
src/SURFEX/modn_surf_atmn.F90
src/SURFEX/old_name.F90
src/SURFEX/pgd_chemistry_snap.F90
src/SURFEX/prep_flake_extern.F90
src/SURFEX/prep_grid_cartesian.F90
src/SURFEX/prep_grid_conf_proj.F90
src/SURFEX/prep_grid_gauss.F90
src/SURFEX/prep_grid_lonlat_reg.F90
src/SURFEX/prep_isba_extern.F90
src/SURFEX/prep_seaflux_extern.F90
src/SURFEX/prep_snow_extern.F90
src/SURFEX/prep_teb_extern.F90
src/SURFEX/prep_teb_garden_extern.F90
src/SURFEX/prep_teb_greenroof_extern.F90
src/SURFEX/prep_watflux_extern.F90
src/SURFEX/read_arrange_cover.F90
src/SURFEX/read_cover_garden.F90
src/SURFEX/read_covern.F90
src/SURFEX/read_covers_and_av_pgd_on_layers.F90
src/SURFEX/read_dummyn.F90
src/SURFEX/read_eco2_irrig.F90
src/SURFEX/read_flake_sbln.F90
src/SURFEX/read_flaken.F90
src/SURFEX/read_from_surfex_file.F90
src/SURFEX/read_gr_snow.F90
src/SURFEX/read_isba_canopyn.F90
src/SURFEX/read_isban.F90
src/SURFEX/read_lclim_lai.F90
src/SURFEX/read_lcover.F90
src/SURFEX/read_lecoclimap.F90
src/SURFEX/read_oceann.F90
src/SURFEX/read_pgd_flaken.F90
src/SURFEX/read_pgd_isba_parn.F90
src/SURFEX/read_pgd_isban.F90
src/SURFEX/read_pgd_seaflux_parn.F90
src/SURFEX/read_pgd_seafluxn.F90
src/SURFEX/read_pgd_teb_garden_parn.F90
src/SURFEX/read_pgd_teb_gardenn.F90
src/SURFEX/read_pgd_teb_greenroof_parn.F90
src/SURFEX/read_pgd_teb_greenroofn.F90
src/SURFEX/read_pgd_teb_parn.F90
src/SURFEX/read_pgd_tebn.F90
src/SURFEX/read_pgd_tsz0_parn.F90
src/SURFEX/read_pgd_watfluxn.F90
src/SURFEX/read_precipn.F90
src/SURFEX/read_prep_file_date.F90
src/SURFEX/read_seaflux_sbln.F90
src/SURFEX/read_seafluxn.F90
src/SURFEX/read_sso_canopyn.F90
src/SURFEX/read_sson.F90
src/SURFEX/read_surf_field2d.F90
src/SURFEX/read_surf_field3d.F90
src/SURFEX/read_teb_canopyn.F90
src/SURFEX/read_teb_gardenn.F90
src/SURFEX/read_teb_patch.F90
src/SURFEX/read_tebn.F90
src/SURFEX/read_watflux_sbln.F90
src/SURFEX/read_watfluxn.F90
src/SURFEX/test_record_len.F90
src/SURFEX/write_diag_misc_flaken.F90
src/SURFEX/write_diag_misc_isban.F90
src/SURFEX/write_diag_misc_tebn.F90
src/SURFEX/write_diag_pgd_grdnn.F90
src/SURFEX/write_diag_pgd_isban.F90
src/SURFEX/write_diag_pgd_tebn.F90
src/SURFEX/write_diag_seb_flaken.F90
src/SURFEX/write_diag_seb_isban.F90
src/SURFEX/write_diag_seb_oceann.F90
src/SURFEX/write_diag_seb_seafluxn.F90
src/SURFEX/write_diag_seb_surf_atmn.F90
src/SURFEX/write_diag_seb_tebn.F90
src/SURFEX/write_diag_seb_watfluxn.F90
src/SURFEX/write_ecoclimap2_data.F90
src/SURFEX/write_lcover.F90
src/SURFEX/write_surf.F90
src/SURFEX/write_surf_field2d.F90
src/SURFEX/write_surf_field3d.F90
src/SURFEX/writesurf_ch_emisn.F90
src/SURFEX/writesurf_covern.F90
src/SURFEX/writesurf_dummyn.F90
src/SURFEX/writesurf_flake_sbln.F90
src/SURFEX/writesurf_flaken.F90
src/SURFEX/writesurf_gr_snow.F90
src/SURFEX/writesurf_isba_canopyn.F90
src/SURFEX/writesurf_isban.F90
src/SURFEX/writesurf_oceann.F90
src/SURFEX/writesurf_pgd_flaken.F90
src/SURFEX/writesurf_pgd_isba_parn.F90
src/SURFEX/writesurf_pgd_isban.F90
src/SURFEX/writesurf_pgd_seaf_parn.F90
src/SURFEX/writesurf_pgd_seafluxn.F90
src/SURFEX/writesurf_pgd_teb_greenroofn.F90
src/SURFEX/writesurf_pgd_teb_parn.F90
src/SURFEX/writesurf_pgd_teb_vegn.F90
src/SURFEX/writesurf_pgd_tebn.F90
src/SURFEX/writesurf_pgd_tsz0_parn.F90
src/SURFEX/writesurf_pgd_watfluxn.F90
src/SURFEX/writesurf_precipn.F90
src/SURFEX/writesurf_seaflux_sbln.F90
src/SURFEX/writesurf_seafluxn.F90
src/SURFEX/writesurf_sso_canopyn.F90
src/SURFEX/writesurf_sson.F90
src/SURFEX/writesurf_teb_canopyn.F90
src/SURFEX/writesurf_teb_gardenn.F90
src/SURFEX/writesurf_tebn.F90
src/SURFEX/writesurf_watflux_sbln.F90
src/SURFEX/writesurf_watfluxn.F90
src/SURFEX/zoom_pgd_orography.F90
src/SURFEX/zoom_pgd_teb.F90
src/configure

index 5e95bd6..cfc5b03 100755 (executable)
@@ -91,6 +91,10 @@ export LFI_INT=${LFI_INT}
 #
 export MNH_REAL=${MNH_REAL}
 #
+#  Len of HREC characters 
+#
+export LEN_HREC=${LEN_HREC}
+#
 #  FOREFIRE
 #
 export MNH_FOREFIRE=${MNH_FOREFIRE}
index a16d225..3746e17 100644 (file)
@@ -303,7 +303,7 @@ INTEGER, INTENT(IN) :: KMI      ! model number
    REAL :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), &
                     ros_Alpha(6), ros_Gamma(6), ros_ELO
    LOGICAL :: ros_NewF(6)
-   CHARACTER(LEN=12) :: ros_Name
+   CHARACTER(LEN=LEN_HREC) :: ros_Name
 !~~~>  Local variables
    REAL :: Roundoff, FacMin, FacMax, FacRej, FacSafe
    REAL :: Hmin, Hmax, Hstart
index 13531cc..cf77141 100644 (file)
@@ -427,7 +427,7 @@ REAL*8,DIMENSION(2)         :: ZTIME,ZTIME1,ZTIME2,ZEND,ZTOT,ZALL,ZTOT_PT
 REAL*8,DIMENSION(2)         :: ZTIME_STEP,ZTIME_STEP_PTS
 CHARACTER                 :: YMI
 INTEGER                   :: IPOINTS
-CHARACTER(len=12)         :: YTCOUNT,YPOINTS
+CHARACTER(len=LEN_HREC)         :: YTCOUNT,YPOINTS
 
 REAL         :: ZSTAT_CSTORE,ZSTAT_CBOUND,ZSTAT_CGUESS,ZSTAT_CADV,ZSTAT_CSOURCES
 REAL         :: ZSTAT_CDIFF,ZSTAT_CRELAX,ZSTAT_CPARAM
index b7c9ac8..68682d9 100644 (file)
@@ -277,7 +277,7 @@ INTEGER  :: IDATE
 INTEGER  :: ITIMESTEP
 CHARACTER(LEN=10) :: CSTEPUNIT
 !chemistery field
-CHARACTER(LEN=12)                  :: YPRE_MOC="PRE_MOC1.nam"
+CHARACTER(LEN=LEN_HREC)                  :: YPRE_MOC="PRE_MOC1.nam"
 INTEGER, DIMENSION(:), ALLOCATABLE :: INUMGRIB, INUMLEV  ! grib
 INTEGER, DIMENSION(:), ALLOCATABLE :: INUMLEV1, INUMLEV2 !numbers
 INTEGER                            :: IMOC
@@ -286,7 +286,7 @@ INTEGER                            :: ICHANNEL
 INTEGER                            :: INDX
 INTEGER                            :: INACT
 CHARACTER(LEN=40)                  :: YINPLINE        ! input line
-CHARACTER(LEN=16)                  :: YFIELD
+CHARACTER(LEN=LEN_HREC)                  :: YFIELD
 CHARACTER, PARAMETER               :: YPTAB = CHAR(9) ! TAB character is ASCII : 9
 CHARACTER, PARAMETER               :: YPCOM = CHAR(44)! COMma character is ASCII : 44
 CHARACTER(LEN=40), DIMENSION(:), ALLOCATABLE :: YMNHNAME ! species names
index b0e0d73..9c03d5f 100644 (file)
@@ -65,7 +65,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12), INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC), INTENT(IN)  :: HREC     ! name of the article to be read
 REAL,              INTENT(IN)  :: PFIELD   ! the real scalar to be read
 INTEGER,           INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
 CHARACTER(LEN=100),INTENT(IN)  :: HCOMMENT ! Comment string
@@ -171,7 +171,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),   INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),   INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,             INTENT(IN)  :: KL       ! number of points
 REAL, DIMENSION(KL), INTENT(IN)  :: PFIELD   ! array containing the data field
 INTEGER,             INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
@@ -422,7 +422,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),   INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),   INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,             INTENT(IN)  :: KL1,KL2       ! number of points
 REAL, DIMENSION(KL1,KL2), INTENT(IN)  :: PFIELD   ! array containing the data field
 LOGICAL,DIMENSION(KL2),   INTENT(IN)  ::OFLAG  ! mask for array filling
@@ -450,7 +450,7 @@ REAL, DIMENSION(:),   ALLOCATABLE :: ZW1D   ! 1D work array
 INTEGER           :: IIU, IJU, IIB, IJB, IIE, IJE ! dimensions of horizontal fields
 INTEGER, DIMENSION(:), ALLOCATABLE :: IMASK       ! mask for unpacking
 !
-CHARACTER(LEN=16) :: YREC
+CHARACTER(LEN=LEN_HREC) :: YREC
 CHARACTER(LEN=100):: YCOMMENT
 !JUANZ
 INTEGER           :: NCOVER,ICOVER,IKL2, JL2
@@ -608,7 +608,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),        INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),        INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,                  INTENT(IN)  :: KL1      ! number of points
 INTEGER,                  INTENT(IN)  :: KL2      ! 2nd dimension
 REAL, DIMENSION(KL1,KL2), INTENT(IN)  :: PFIELD   ! array containing the data field
@@ -758,7 +758,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),   INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),   INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,             INTENT(IN)  :: KFIELD   ! the integer to be read
 INTEGER,             INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
 CHARACTER(LEN=100),  INTENT(IN)  :: HCOMMENT ! Comment string
@@ -862,7 +862,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),      INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),      INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,                INTENT(IN)  :: KL       ! number of points
 INTEGER, DIMENSION(KL), INTENT(IN)  :: KFIELD   ! the integer to be read
 INTEGER,                INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
@@ -965,7 +965,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),  INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC     ! name of the article to be read
 CHARACTER(LEN=40),  INTENT(IN)  :: HFIELD   ! the integer to be read
 INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
 CHARACTER(LEN=100), INTENT(IN)  :: HCOMMENT ! Comment string
@@ -1057,7 +1057,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),      INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),      INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,                INTENT(IN)  :: KL       ! number of points
 LOGICAL, DIMENSION(KL), INTENT(IN)  :: OFIELD   ! array containing the data field
 INTEGER,                INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
@@ -1187,7 +1187,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),  INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC     ! name of the article to be read
 LOGICAL,            INTENT(IN)  :: OFIELD   ! array containing the data field
 INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
 CHARACTER(LEN=100), INTENT(IN)  :: HCOMMENT ! Comment string
@@ -1277,7 +1277,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),  INTENT(IN)  :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,            INTENT(IN)  :: KYEAR    ! year
 INTEGER,            INTENT(IN)  :: KMONTH   ! month
 INTEGER,            INTENT(IN)  :: KDAY     ! day
@@ -1288,7 +1288,7 @@ CHARACTER(LEN=100), INTENT(IN)  :: HCOMMENT ! Comment string
 !*      0.2   Declarations of local variables
 !
 !
-CHARACTER(LEN=16)      :: YRECFM    ! Name of the article to be written
+CHARACTER(LEN=LEN_HREC)      :: YRECFM    ! Name of the article to be written
 INTEGER, DIMENSION(3)  :: ITDATE
 !-------------------------------------------------------------------------------
 !
@@ -1396,7 +1396,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=12),  INTENT(IN) :: HREC     ! name of the article to be read
+CHARACTER(LEN=LEN_HREC),  INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER,            INTENT(IN) :: KL1       ! number of points
 INTEGER, DIMENSION(KL1), INTENT(IN)  :: KYEAR    ! year
 INTEGER, DIMENSION(KL1), INTENT(IN)  :: KMONTH   ! month
@@ -1408,7 +1408,7 @@ CHARACTER(LEN=100), INTENT(IN)  :: HCOMMENT ! Comment string
 !*      0.2   Declarations of local variables
 !
 !
-CHARACTER(LEN=16)      :: YRECFM    ! Name of the article to be written
+CHARACTER(LEN=LEN_HREC)      :: YRECFM    ! Name of the article to be written
 INTEGER, DIMENSION(3,KL1)  :: ITDATE
 !-------------------------------------------------------------------------------
 !
index a35dc5b..eb5f093 100644 (file)
@@ -47,6 +47,12 @@ ifeq "$(MNH_INT)" "8"
 CPPFLAGS   += -DMNH_INT8
 endif
 
+#
+#  Len of HREC characters 
+#
+CPPFLAGS   += -DLEN_HREC=$(LEN_HREC)
+#
+
 OBJS_NOCB +=  spll_dxf.o spll_dxm.o spll_dyf.o spll_dym.o \
         spll_dzf.o spll_dzm.o spll_mxf.o \
         spll_mxm.o spll_myf.o spll_mym.o spll_mzf.o \
index 0d7a186..55afb4e 100644 (file)
@@ -69,7 +69,7 @@ INTEGER,                 INTENT(IN) :: KSW       ! number of short-wave spectral
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YREC           ! Name of the article to be read
+CHARACTER(LEN=LEN_HREC) :: YREC           ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index cd8918c..f76078a 100644 (file)
@@ -50,7 +50,7 @@ IMPLICIT NONE
 !*       0.1  declaration of arguments
 !
 INTEGER,                       INTENT(IN)  :: KEMIS_NBR ! number of emitted species
- CHARACTER(LEN=12), DIMENSION(KEMIS_NBR), INTENT(IN) :: HEMIS_NAME ! name of emitted species
+ CHARACTER(LEN=LEN_HREC), DIMENSION(KEMIS_NBR), INTENT(IN) :: HEMIS_NAME ! name of emitted species
 TYPE(PRONOSVAR_T),             POINTER     :: TPPRONOS
 INTEGER,                       INTENT(IN)  :: KCH     ! logical unit of input chemistry file
 INTEGER,                       INTENT(IN)  :: KLUOUT  ! output listing channel
index 6d4ee9f..a523bb0 100644 (file)
@@ -71,7 +71,7 @@ INTEGER             :: JSPEC                 ! Loop index for cover data
 INTEGER             :: IIND1,IIND2           ! Indices counter
 !
  CHARACTER(LEN=40)                 :: YSPEC_NAME ! species name
- CHARACTER(LEN=12), DIMENSION(:),ALLOCATABLE :: YEMIS_NAME ! offline emitted species name
+ CHARACTER(LEN=LEN_HREC), DIMENSION(:),ALLOCATABLE :: YEMIS_NAME ! offline emitted species name
 INTEGER,DIMENSION(:),ALLOCATABLE  :: INBTIMES! number of emission times array
 INTEGER,DIMENSION(:),ALLOCATABLE  :: ITIMES  ! emission times for a species
 INTEGER,DIMENSION(:),ALLOCATABLE  :: IOFFNDX ! index array of offline emission species
index 25c4b24..b7d7900 100644 (file)
@@ -68,7 +68,7 @@ LOGICAL,  INTENT(OUT) :: OPROVAR_TO_DIAG    ! switch to write (or not) prognosti
 LOGICAL,  INTENT(OUT) :: ODIAG_GRID    ! flag for mean grid diag
 LOGICAL,  INTENT(OUT) :: OFRAC         ! flag for fractions of tiles
 REAL,     INTENT(OUT) :: PDIAG_TSTEP   ! time-step for writing
- CHARACTER(LEN=12), DIMENSION(200), INTENT(OUT), OPTIONAL :: CSELECT  
+ CHARACTER(LEN=LEN_HREC), DIMENSION(200), INTENT(OUT), OPTIONAL :: CSELECT  
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !*       0.2   Declarations of local variables
index 3e08e4b..e2dc8ab 100644 (file)
@@ -157,7 +157,7 @@ INTEGER, INTENT(IN)         :: KSW       ! spectral bands
 !
 INTEGER           :: IVERSION, IBUG
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YREC           ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YREC           ! Name of the article to be read
  CHARACTER(LEN=4) :: YREC2
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index d2164ba..8dd8ac4 100644 (file)
@@ -93,7 +93,7 @@ INTEGER, INTENT(IN) :: KSW   ! spectral bands
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YREC           ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YREC           ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index 942c399..d13c753 100644 (file)
@@ -84,7 +84,7 @@ INTEGER, INTENT(IN) :: KSW   ! number of SW spectral bands
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YREC           ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YREC           ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index 8b86dc8..7b32193 100644 (file)
@@ -76,7 +76,7 @@ INTEGER, INTENT(IN)         :: KSW       ! spectral bands
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YREC           ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YREC           ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index fc0afa4..417fb9a 100644 (file)
@@ -80,7 +80,7 @@ INTEGER, INTENT(IN)         :: KSW       ! spectral bands
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YREC           ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YREC           ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index f9bd52a..00449e9 100644 (file)
@@ -71,7 +71,7 @@ INTEGER, INTENT(IN) :: KSW   ! spectral bands
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YREC           ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YREC           ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index c90d4b2..3c35b84 100644 (file)
@@ -80,7 +80,7 @@ INTEGER, INTENT(IN) :: KSW   ! number of SW spectral bands
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YREC           ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YREC           ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index 60c13cf..98a015a 100644 (file)
@@ -78,10 +78,10 @@ REAL,    DIMENSION(:,:), ALLOCATABLE :: ZPAR_HC, ZPAR_TC, ZHC, ZTC ! work arrays
 INTEGER           :: IVERSION       ! surface version
 INTEGER           :: IBUGFIX        ! surface bugfix version
  CHARACTER(LEN=5)  :: YSURF          ! Type of surface
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
- CHARACTER(LEN=12) :: YRECFM0        ! Name of the article to be read
- CHARACTER(LEN=12) :: YRECFM1        ! Name of the article to be read
- CHARACTER(LEN=12) :: YRECFM2        ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM0        ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM1        ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM2        ! Name of the article to be read
  CHARACTER(LEN=3)  :: YAREA          ! Area where field is to be averaged
 INTEGER           :: IRESP          ! reading return code
 LOGICAL           :: GDATA          ! T if depth is to be read in the file
index b99607d..e45b5c1 100644 (file)
@@ -85,7 +85,7 @@ IMPLICIT NONE
 INTEGER           :: IVERSION, IBUGFIX  ! surface version
 INTEGER           :: ILUOUT   ! unit of output listing file
 INTEGER           :: IRESP    ! Error code after redding
- CHARACTER(LEN=12) :: YRECFM   ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM   ! Name of the article to be read
 !
 !
 REAL                              :: ZOUT_TSTEP
index ac226f7..9d2b61f 100644 (file)
@@ -48,7 +48,7 @@ IMPLICIT NONE
 !*       0.1   Declarations of arguments
 !              -------------------------
 !
- CHARACTER(LEN=12),  INTENT(IN) :: HREC     ! field to read or write
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN) :: HREC     ! field to read or write
  CHARACTER(LEN=1),   INTENT(IN) :: HACTION  ! 'R' : file being read
                                            ! 'W' : file being written
 !
index 31c6fc0..c02369f 100644 (file)
@@ -55,7 +55,7 @@ TYPE CH_EMIS_SNAP_t
 !                          !  'LEGAL' : LEGAL time
 !                          !
 
-  CHARACTER(LEN=12), DIMENSION(:), POINTER :: CEMIS_NAME
+  CHARACTER(LEN=LEN_HREC), DIMENSION(:), POINTER :: CEMIS_NAME
 !                          ! name of the chemical fields (emitted species)
   CHARACTER(LEN=40), DIMENSION(:), POINTER :: CEMIS_COMMENT
 !                          ! comment on the chemical fields (emitted species)
@@ -94,7 +94,7 @@ INTEGER, POINTER :: NEMIS_NBR=>NULL()
 !$OMP THREADPRIVATE(CSNAP_TIME_REF)
  CHARACTER(LEN=40), DIMENSION(:), POINTER :: CEMIS_COMMENT=>NULL()
 !$OMP THREADPRIVATE(CEMIS_COMMENT)
- CHARACTER(LEN=12), DIMENSION(:), POINTER :: CEMIS_NAME=>NULL()
+ CHARACTER(LEN=LEN_HREC), DIMENSION(:), POINTER :: CEMIS_NAME=>NULL()
 !$OMP THREADPRIVATE(CEMIS_NAME)
 REAL,              DIMENSION(:,:), POINTER:: XEMIS_FIELDS=>NULL()
 !$OMP THREADPRIVATE(XEMIS_FIELDS)
index 1d4ff09..5539dae 100644 (file)
@@ -182,7 +182,7 @@ TYPE DIAG_SURF_ATM_t
   REAL, POINTER, DIMENSION(:) :: XRW_RAIN       ! Init/End rainfall rate   (kg/m2/s)
   REAL, POINTER, DIMENSION(:) :: XRW_SNOW       ! Init/End snowfall rate   (kg/m2/s)
 !                                   
-  CHARACTER(LEN=12), POINTER, DIMENSION(:) :: CSELECT  ! Name of ouput fields if LSELECT=true
+  CHARACTER(LEN=LEN_HREC), POINTER, DIMENSION(:) :: CSELECT  ! Name of ouput fields if LSELECT=true
 !
 !------------------------------------------------------------------------------
 !
@@ -219,7 +219,7 @@ LOGICAL, POINTER :: LPROVAR_TO_DIAG=>NULL()
 !$OMP THREADPRIVATE(LPROVAR_TO_DIAG)
 LOGICAL, POINTER :: LSELECT=>NULL()
 !$OMP THREADPRIVATE(LSELECT)
- CHARACTER(LEN=12), DIMENSION(:), POINTER :: CSELECT=>NULL()
+ CHARACTER(LEN=LEN_HREC), DIMENSION(:), POINTER :: CSELECT=>NULL()
 !$OMP THREADPRIVATE(CSELECT)
 TYPE(DATE_TIME), POINTER :: TIME_BUDGETC=>NULL()
 !$OMP THREADPRIVATE(TIME_BUDGETC)
index 617db10..48d5969 100644 (file)
@@ -37,14 +37,14 @@ IMPLICIT NONE
 
 TYPE IO_BUFF_t
 
- CHARACTER(LEN=12), DIMENSION(3000) :: CREC   ! list of records already read/written
+ CHARACTER(LEN=LEN_HREC), DIMENSION(3000) :: CREC   ! list of records already read/written
 INTEGER                            :: NREC   ! number of records read/written
 
 END TYPE IO_BUFF_t
 !
 TYPE(IO_BUFF_t), ALLOCATABLE, TARGET, SAVE :: IO_BUFF_MODEL(:)
 !
- CHARACTER(LEN=12), DIMENSION(:),    POINTER :: CREC=> NULL()
+ CHARACTER(LEN=LEN_HREC), DIMENSION(:),    POINTER :: CREC=> NULL()
 INTEGER,                            POINTER :: NREC=> NULL()
 !
 CONTAINS
index b7bf36c..1a01fcb 100644 (file)
@@ -59,8 +59,8 @@ REAL, DIMENSION(:,:,:), POINTER     :: PDEPTH    ! middle depth of each layer
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
- CHARACTER(LEN=16) :: YRECFM2
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM2
  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
 INTEGER           :: IRESP          ! reading return code
 INTEGER           :: ILAYER         ! number of soil layers
@@ -344,7 +344,7 @@ REAL, DIMENSION(:,:,:), POINTER       :: PDEPTH    ! middle depth of each layer
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=4)  :: YLVL
 #ifdef MNH_PARALLEL
  CHARACTER(LEN=8)  :: YPATCH
index 39304e7..4f83c42 100644 (file)
@@ -44,7 +44,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN) :: HREC     ! name of the article to be read
 REAL,               INTENT(IN) :: PFIELD   ! the real scalar to be read
 INTEGER,            INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100), INTENT(IN) :: HCOMMENT ! comment string
@@ -94,7 +94,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER,            INTENT(IN) :: KFIELD   ! the integer to be read
 INTEGER,            INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100), INTENT(IN) :: HCOMMENT ! comment string
@@ -144,7 +144,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN) :: HREC     ! name of the article to be read
 LOGICAL,            INTENT(IN) :: OFIELD   ! array containing the data field
 INTEGER,            INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100), INTENT(IN) :: HCOMMENT ! comment string
@@ -194,7 +194,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN)  :: HREC      ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC      ! name of the article to be read
  CHARACTER(LEN=40),  INTENT(IN)  :: HFIELD    ! the integer to be read
 INTEGER,            INTENT(OUT) :: KRESP     ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100), INTENT(IN)  :: HCOMMENT  ! comment string
@@ -251,7 +251,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),   INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),   INTENT(IN) :: HREC     ! name of the article to be read
 REAL, DIMENSION(:),  INTENT(IN) :: PFIELD   ! array containing the data field
 INTEGER,             INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100),  INTENT(IN) :: HCOMMENT ! comment string
@@ -342,7 +342,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),        INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),        INTENT(IN) :: HREC     ! name of the article to be read
 REAL, DIMENSION(:,:),     INTENT(IN) :: PFIELD   ! array containing the data field
 INTEGER,                  INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100),       INTENT(IN) :: HCOMMENT ! comment string
@@ -433,7 +433,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),      INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),      INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER, DIMENSION(:),  INTENT(IN) :: KFIELD   ! the integer to be read
 INTEGER,                INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100),     INTENT(IN) :: HCOMMENT ! comment string
@@ -523,7 +523,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),      INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),      INTENT(IN) :: HREC     ! name of the article to be read
 LOGICAL, DIMENSION(:),  INTENT(IN) :: OFIELD   ! array containing the data field
 INTEGER,                INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100),     INTENT(IN) :: HCOMMENT ! comment string
@@ -597,7 +597,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN)  :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,            INTENT(IN)  :: KYEAR    ! year
 INTEGER,            INTENT(IN)  :: KMONTH   ! month
 INTEGER,            INTENT(IN)  :: KDAY     ! day
@@ -665,7 +665,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),     INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),     INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER, DIMENSION(:), INTENT(IN) :: KYEAR    ! year
 INTEGER, DIMENSION(:), INTENT(IN) :: KMONTH   ! month
 INTEGER, DIMENSION(:), INTENT(IN) :: KDAY     ! day
@@ -754,7 +754,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),       INTENT(IN)  :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),       INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER, DIMENSION(:,:), INTENT(IN)  :: KYEAR    ! year
 INTEGER, DIMENSION(:,:), INTENT(IN)  :: KMONTH   ! month
 INTEGER, DIMENSION(:,:), INTENT(IN)  :: KDAY     ! day
index 88fbe2d..832d393 100644 (file)
@@ -45,7 +45,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN) :: HREC     ! name of the article to be read
 REAL,               INTENT(IN) :: PFIELD   ! the real scalar to be read
 INTEGER,            INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100), INTENT(IN) :: HCOMMENT ! comment string
@@ -107,7 +107,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER,            INTENT(IN) :: KFIELD   ! the integer to be read
 INTEGER,            INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100), INTENT(IN) :: HCOMMENT ! comment string
@@ -169,7 +169,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN) :: HREC     ! name of the article to be read
 LOGICAL,            INTENT(IN) :: OFIELD   ! array containing the data field
 INTEGER,            INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100), INTENT(IN) :: HCOMMENT ! comment string
@@ -231,7 +231,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN)  :: HREC      ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC      ! name of the article to be read
  CHARACTER(LEN=40),  INTENT(IN)  :: HFIELD    ! the integer to be read
 INTEGER,            INTENT(OUT) :: KRESP     ! KRESP  : return-code if a problem appears
  CHARACTER(LEN=100), INTENT(IN)  :: HCOMMENT  ! comment string
@@ -302,7 +302,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),   INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),   INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER,             INTENT(IN) :: KL       ! number of points
 REAL, DIMENSION(KL), INTENT(IN) :: PFIELD   ! array containing the data field
 INTEGER,             INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
@@ -411,7 +411,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),        INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),        INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER,                  INTENT(IN) :: KL1      ! number of points
 INTEGER,                  INTENT(IN) :: KL2      ! 2nd dimension
 REAL, DIMENSION(KL1,KL2), INTENT(IN) :: PFIELD   ! array containing the data field
@@ -529,7 +529,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),      INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),      INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER,                INTENT(IN) :: KL       ! number of points
 INTEGER, DIMENSION(KL), INTENT(IN) :: KFIELD   ! array containing the data field
 INTEGER,                INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
@@ -630,7 +630,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),      INTENT(IN) :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),      INTENT(IN) :: HREC     ! name of the article to be read
 INTEGER,             INTENT(IN) :: KL       ! number of points
 LOGICAL, DIMENSION(KL), INTENT(IN) :: OFIELD   ! array containing the data field
 INTEGER,                INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
@@ -716,7 +716,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN)  :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,            INTENT(IN)  :: KYEAR    ! year
 INTEGER,            INTENT(IN)  :: KMONTH   ! month
 INTEGER,            INTENT(IN)  :: KDAY     ! day
@@ -812,7 +812,7 @@ INCLUDE "mpif.h"
 !
 !*      0.1   Declarations of arguments
 !
- CHARACTER(LEN=12),  INTENT(IN)  :: HREC     ! name of the article to be read
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC     ! name of the article to be read
 INTEGER,                      INTENT(IN) :: KL1      ! number of points
 INTEGER,                      INTENT(IN) :: KL2      ! 2nd dimension
 INTEGER, DIMENSION(KL1,KL2), INTENT(IN)  :: KYEAR    ! year
index a69018f..243a9ad 100644 (file)
@@ -76,7 +76,7 @@ LOGICAL  :: LSURF_VARS
 LOGICAL  :: LDIAG_GRID
 LOGICAL  :: LPROVAR_TO_DIAG
 LOGICAL  :: LSELECT
- CHARACTER(LEN=12), DIMENSION(250)    :: CSELECT
+ CHARACTER(LEN=LEN_HREC), DIMENSION(250)    :: CSELECT
 !
 NAMELIST/NAM_CH_CONTROLn/CCHEM_SURF_FILE
 NAMELIST/NAM_CH_SURFn/LCH_SURF_EMIS
index e2b72e2..019d8db 100644 (file)
@@ -50,8 +50,8 @@ IMPLICIT NONE
 !              -------------------------
 !
  CHARACTER(LEN=6),  INTENT(IN)  :: HPROGRAM ! main program
- CHARACTER(LEN=12), INTENT(IN)  :: HRECIN   ! name of field to be read
- CHARACTER(LEN=12), INTENT(OUT) :: HRECOUT  ! name of field to be read is old file
+ 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
 !
 !
 !*       0.2   Declarations of local variables
index 61f6f51..1d6ce2b 100644 (file)
@@ -90,7 +90,7 @@ INTEGER                           :: JSNAP     ! loop counter on SNAP categories
 !            ------------------------
 !
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
- CHARACTER(LEN=12), DIMENSION(JPEMISMAX_S):: CEMIS_NAME
+ 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
index 79a7369..b5b3d54 100644 (file)
@@ -37,7 +37,7 @@ REAL,DIMENSION(:,:), POINTER    :: PFIELD    ! field to interpolate horizontally
 !*      0.2    declarations of local variables
 !
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: IRESP          ! reading return code
 INTEGER           :: ILUOUT
 !
index 5730e47..356b61c 100644 (file)
@@ -58,7 +58,7 @@ INTEGER,           INTENT(OUT)   :: KNI          ! number of points
 !* 0.2 Declaration of local variables
 !      ------------------------------
 !
- CHARACTER(LEN=12) :: YRECFM    ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM    ! Name of the article to be read
 INTEGER           :: IRESP
 !
 INTEGER           :: JL        ! loop counter
index b962288..bb5ab86 100644 (file)
@@ -59,7 +59,7 @@ INTEGER,           INTENT(OUT)   :: KNI          ! number of points
 !* 0.2 Declaration of local variables
 !      ------------------------------
 !
- CHARACTER(LEN=12) :: YRECFM    ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM    ! Name of the article to be read
 INTEGER           :: IRESP
 !
 !
index bcecb83..971ab3f 100644 (file)
@@ -58,7 +58,7 @@ INTEGER,           INTENT(OUT)   :: KNI          ! number of points
 !* 0.2 Declaration of local variables
 !      ------------------------------
 !
- CHARACTER(LEN=12) :: YRECFM    ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM    ! Name of the article to be read
 INTEGER           :: IRESP
 !
 !
index 6d9ce98..1f566c6 100644 (file)
@@ -57,7 +57,7 @@ INTEGER,           INTENT(OUT)   :: KNI          ! number of points
 !* 0.2 Declaration of local variables
 !      ------------------------------
 !
- CHARACTER(LEN=12) :: YRECFM    ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM    ! Name of the article to be read
 INTEGER           :: IRESP
 !
 INTEGER :: JL        ! loop counter
index 73a70b4..648adfd 100644 (file)
@@ -67,7 +67,7 @@ REAL,DIMENSION(:,:,:), POINTER  :: PFIELD    ! field to interpolate horizontally
 !
 !*      0.2    declarations of local variables
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: IRESP          ! reading return code
 INTEGER           :: INI            ! total 1D dimension
 INTEGER           :: IPATCH         ! number of patch
index 8c0866b..bc05c6c 100644 (file)
@@ -34,7 +34,7 @@ REAL,DIMENSION(:,:), POINTER    :: PFIELD    ! field to interpolate horizontally
 !*      0.2    declarations of local variables
 !
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: IRESP          ! reading return code
 !
 INTEGER           :: INI            ! total 1D dimension
index b742a7a..b5bcf1f 100644 (file)
@@ -95,7 +95,7 @@ REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZDEPTH       ! thickness of each layer (m
 REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZGRID        ! normalized input grid
 !
 LOGICAL                           :: GTOWN          ! town variables written in the file
- CHARACTER(LEN=12)                 :: YRECFM         ! record name
+ CHARACTER(LEN=LEN_HREC)                 :: YRECFM         ! record name
 INTEGER                           :: IRESP          ! error return code
 INTEGER                           :: IVERSION       ! SURFEX version
 LOGICAL                           :: GOLD_NAME      ! old name flag 
index 20fa380..a292279 100644 (file)
@@ -54,7 +54,7 @@ REAL, DIMENSION(:),   ALLOCATABLE :: ZDEPTH_TOT     ! total depth of surface
 !
 REAL, DIMENSION(:,:),   ALLOCATABLE :: ZD  ! intermediate array
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: IRESP          ! reading return code
 INTEGER           :: ILAYER         ! number of layers
 INTEGER           :: JLAYER         ! loop counter
index 1ef7052..039929a 100644 (file)
@@ -70,7 +70,7 @@ REAL,DIMENSION(:,:,:), POINTER  :: PFIELD    ! field to interpolate horizontally
 !
 !*      0.2    declarations of local variables
 !
- CHARACTER(LEN=12) :: YRECFM        ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM        ! Name of the article to be read
 INTEGER           :: IRESP          ! reading return code
 INTEGER           :: INI            ! total 1D dimension
 INTEGER           :: IPATCH         ! number of patch
@@ -86,7 +86,7 @@ INTEGER                             :: ICURRENT_PATCH ! current TEB patch to be
 INTEGER                             :: IVERSION       ! SURFEX version
 INTEGER                             :: IBUGFIX        ! SURFEX bug version
 LOGICAL                             :: GOLD_NAME      ! old name flag for temperatures
- CHARACTER(LEN=12)                   :: YSURF     ! type of field
+ CHARACTER(LEN=LEN_HREC)                   :: YSURF     ! type of field
  CHARACTER(LEN=3)                    :: YPATCH    ! indentificator for TEB patch
  CHARACTER(LEN=4)                    :: YPATCH2   ! number of the patch
 LOGICAL                         :: GTEB      ! flag if TEB fields are present
index 3ee00d7..0b14be9 100644 (file)
@@ -71,7 +71,7 @@ REAL,DIMENSION(:,:,:), POINTER  :: PFIELD    ! field to interpolate horizontally
 !
 !*      0.2    declarations of local variables
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: IRESP          ! reading return code
 INTEGER           :: INI            ! total 1D dimension
 INTEGER           :: IPATCH         ! number of patch
@@ -83,7 +83,7 @@ REAL, DIMENSION(:,:), POINTER       :: ZD1            ! depth of field in the so
 REAL, DIMENSION(:,:), ALLOCATABLE   :: ZOUT           !
 LOGICAL                             :: GTEB           ! flag if TEB fields are present
 INTEGER                             :: JPATCH         ! loop counter for patch
- CHARACTER(LEN=12)                   :: YSURF          ! type of field
+ CHARACTER(LEN=LEN_HREC)                   :: YSURF          ! type of field
 INTEGER                             :: ITEB_PATCH     ! number of TEB patches in file
 INTEGER                             :: ICURRENT_PATCH ! current TEB patch to be initialized
 INTEGER                             :: IVERSION       ! SURFEX version
index e2e7fee..103e2a8 100644 (file)
@@ -36,7 +36,7 @@ REAL,DIMENSION(:,:), POINTER    :: PFIELD    ! field to interpolate horizontally
 !*      0.2    declarations of local variables
 !
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: IRESP          ! reading return code
 INTEGER           :: ILUOUT
 INTEGER           :: IDIM_WATER
index ea7a3d9..aa5464b 100644 (file)
@@ -25,7 +25,7 @@ LOGICAL,           INTENT(OUT) :: OTOWN_TO_ROCK    ! T: Change Town into Rock
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
 INTEGER           :: IRESP      ! reading return code
 !
 INTEGER           :: IVERSION   ! surface version
index e89fe1f..27f3f6b 100644 (file)
@@ -24,7 +24,7 @@ LOGICAL,           INTENT(OUT) :: OGARDEN   ! T: Definition of urban green areas
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
 INTEGER           :: IRESP      ! reading return code
 !
 INTEGER           :: IVERSION   ! surface version
index 611f6fa..ba64775 100644 (file)
@@ -74,7 +74,7 @@ INTEGER           :: IRESP          ! Error code after redding
 ! 
 INTEGER           :: IVERSION       ! surface version
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index c0eeb80..89316eb 100644 (file)
@@ -61,7 +61,7 @@ IMPLICIT NONE
 !            ------------------------
 !
 CHARACTER(LEN=6),   INTENT(IN)  :: HFILEPGDTYPE ! type of input file
-CHARACTER(LEN=12),   INTENT(IN) :: HRECFM         ! Name of the article to be read
+CHARACTER(LEN=LEN_HREC),   INTENT(IN) :: HRECFM         ! Name of the article to be read
 INTEGER,   INTENT(IN) :: KLU                      ! number of points
 INTEGER,   INTENT(IN)  :: KDATA_LAYER  ! number of layers
 REAL, DIMENSION(KLU,KDATA_LAYER),     INTENT(OUT) :: PFIELD2D  ! secondary field to construct
@@ -90,7 +90,7 @@ LOGICAL, DIMENSION(JPCOVER)          :: GCOVER ! flag to read the covers
 REAL,    DIMENSION(KLU)                 :: ZCOVER ! cover fractions
 CHARACTER(LEN=100) :: YCOMMENT
 INTEGER           :: IRESP          ! reading return code
-CHARACTER(LEN=16) :: YRECFM         ! Name of the article to be read
+CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !-------------------------------------------------------------------------------
 !
 IF (LHOOK) CALL DR_HOOK('READ_COVERS_AND_AV_PGD_1D_ON_LAYERS',0,ZHOOK_HANDLE)
index 5d24e91..22c386d 100644 (file)
@@ -50,7 +50,7 @@ INTEGER           :: JDUMMY         ! loop counter
  CHARACTER(LEN=3  ):: YSTRING03      ! string
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index 3f29d4b..6ef080d 100644 (file)
@@ -28,7 +28,7 @@ IMPLICIT NONE
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
 INTEGER           :: IRESP      ! reading return code
 !
 INTEGER           :: IVERSION   ! surface version
index 6d5efcd..112bbe3 100644 (file)
@@ -61,7 +61,7 @@ IMPLICIT NONE
 !*       0.2   Declarations of local variables
 !              -------------------------------
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=3)  :: YREAD
 INTEGER :: ILU     ! 1D physical dimension
 INTEGER :: IRESP   ! Error code after redding
index 3f83951..c4e60ac 100644 (file)
@@ -77,7 +77,7 @@ INTEGER           :: ILU          ! 1D physical dimension
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index 62fcb56..3da0ae7 100644 (file)
@@ -31,7 +31,7 @@ REAL, DIMENSION(:), INTENT(OUT) :: PFIELD
  CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: HNAM
 !
  CHARACTER(LEN=28)     :: HNAME
- CHARACTER(LEN=12)     :: YRECFM
+ CHARACTER(LEN=LEN_HREC)     :: YRECFM
 INTEGER               :: IRESP, I0
 !
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index 3c3675b..d3f3a3d 100644 (file)
@@ -79,8 +79,8 @@ TYPE(SURF_SNOW)                          :: TPSNOW    ! snow characteristics
 !*       0.2   declarations of local variables
 !
 INTEGER             :: IRESP               ! Error code after redding
- CHARACTER(LEN=12)   :: YRECFM              ! Name of the article to be read
- CHARACTER(LEN=16)   :: YRECFM2 
+ CHARACTER(LEN=LEN_HREC)   :: YRECFM              ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC)   :: YRECFM2 
 !
  CHARACTER (LEN=100) :: YFMT                ! format for writing
 INTEGER             :: ISURFTYPE_LEN       ! 
index 88c98f3..b301df1 100644 (file)
@@ -63,7 +63,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=3)  :: YREAD
 INTEGER :: JLAYER  ! loop counter on layers
 INTEGER :: ILU     ! 1D physical dimension
index a617418..665a5b5 100644 (file)
@@ -87,7 +87,7 @@ INTEGER           :: ILU          ! 1D physical dimension
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !
  CHARACTER(LEN=4)  :: YLVL
  CHARACTER(LEN=8)  :: YPATCH
index 8b56936..c252c54 100644 (file)
@@ -24,7 +24,7 @@ LOGICAL,              INTENT(OUT)   :: OCLIM_LAI ! flag for use of climatologic
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
 INTEGER           :: IRESP      ! reading return code
 !
 INTEGER           :: IVERSION   ! surface version
index 57d0b2e..ccce649 100644 (file)
@@ -66,7 +66,7 @@ LOGICAL, DIMENSION(JPCOVER)    :: OCOVER   ! list of covers
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! Error code after redding
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: IVERSION       ! version of surfex file being read
 LOGICAL, DIMENSION(:), ALLOCATABLE :: GCOVER ! cover list in the file
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index e119c04..a90a1dd 100644 (file)
@@ -24,7 +24,7 @@ LOGICAL,              INTENT(OUT)   :: OECOCLIMAP! flag for ecoclimap
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
 INTEGER           :: IRESP      ! reading return code
 !
 INTEGER           :: IVERSION   ! surface version
index 4ef1f0e..0e45610 100644 (file)
@@ -71,7 +71,7 @@ INTEGER           :: IRESP          ! Error code after redding
 !
  CHARACTER(LEN=4)  :: YLVL
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=14) :: YFORM          ! Writing format
 REAL, DIMENSION(:),ALLOCATABLE  :: ZWORK      ! 1D array to write data in file
 !
index 6b99cb5..a693d46 100644 (file)
@@ -72,7 +72,7 @@ IMPLICIT NONE
 !
 INTEGER           :: IRESP          ! Error code after redding
 ! 
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !-------------------------------------------------------------------------------
index 4d9e646..efcc7ff 100644 (file)
@@ -99,8 +99,8 @@ REAL,    DIMENSION(:,:), ALLOCATABLE :: ZWORK
 INTEGER           :: ILUOUT
 INTEGER           :: ITIME
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
- CHARACTER(LEN=16) :: YRECFM2
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM2
  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
  CHARACTER(LEN=1)  :: YDIR
 INTEGER           :: JTIME          ! loop index
index b4564c8..7a71215 100644 (file)
@@ -103,7 +103,7 @@ REAL, DIMENSION(:,:), ALLOCATABLE :: ZWORK
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !
 INTEGER :: ILU    ! expected physical size of full surface array
 INTEGER :: ILUOUT ! output listing logical unit
index f234035..c490ec0 100644 (file)
@@ -66,7 +66,7 @@ INTEGER, INTENT(IN) :: KSIZE
 !              -------------------------------
 !
 REAL, DIMENSION(:,:), ALLOCATABLE :: ZDATA_SST
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=1)  :: YDIR
 INTEGER           :: ILUOUT
index 7c9ef52..4e6ba63 100644 (file)
@@ -70,7 +70,7 @@ IMPLICIT NONE
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !
 INTEGER           :: IVERSION   ! surface version
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index a77c3b8..d628ba8 100644 (file)
@@ -86,7 +86,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER                               :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12)                     :: 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                               :: JI, JLAYER     ! loop index
 INTEGER                               :: JTIME          ! loop index
index ffc5698..1826bb9 100644 (file)
@@ -70,7 +70,7 @@ INTEGER,           INTENT(IN)  :: KBUGFIX
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !
 INTEGER           :: JLAYER         ! loop counter on layers
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index 7098a68..90bab32 100644 (file)
@@ -84,7 +84,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER                               :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12)                     :: 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                               :: JI             ! loop index
 INTEGER                               :: JTIME          ! loop index
index 0327316..5e00880 100644 (file)
@@ -69,7 +69,7 @@ INTEGER,           INTENT(IN)  :: KVERSION ! version of SURFEX of the file being
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !
 !
 INTEGER           :: JLAYER         ! loop counter on layers ! not used
index d9bc17f..2dfde1f 100644 (file)
@@ -113,7 +113,7 @@ INTEGER,           INTENT(IN)  :: KNI      ! size of the new domain
 !
 INTEGER           :: ILUOUT         ! output listing logical unit
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: JLAYER         ! loop index
 !
 INTEGER           :: IVERSION       ! surface version
index db3d20a..b4d7222 100644 (file)
@@ -77,7 +77,7 @@ IMPLICIT NONE
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 INTEGER           :: IVERSION
 INTEGER           :: IBUGFIX
 !
index 4c29bbe..d9b4527 100644 (file)
@@ -58,7 +58,7 @@ IMPLICIT NONE
 INTEGER :: IVERSION  ! surface version
 INTEGER :: IBUGFIX   ! bugfix  of the old file
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index 373344f..4dec938 100644 (file)
@@ -66,7 +66,7 @@ IMPLICIT NONE
 !
 INTEGER           :: IRESP          ! Error code after redding
 ! 
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !-------------------------------------------------------------------------------
index bd51c47..204302b 100644 (file)
@@ -76,7 +76,7 @@ IMPLICIT NONE
 !
 INTEGER           :: IRESP      ! Error code after redding
 ! 
- CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
 !
 INTEGER           :: IVERSION   ! surface version
 INTEGER           :: IBUGFIX    ! surface bugfix
index d589f06..0ab60ee 100644 (file)
@@ -55,7 +55,7 @@ INTEGER,            INTENT(IN)  :: KLUOUT    ! logical unit of output listing
 !
 !*      0.2    declarations of local variables
 !
- CHARACTER(LEN=12), DIMENSION(3000) :: HREC   ! list of records already read/written
+ CHARACTER(LEN=LEN_HREC), DIMENSION(3000) :: HREC   ! list of records already read/written
 INTEGER                            :: IREC
  CHARACTER(LEN=6)              :: YINMODEL  ! model from which GRIB file originates
  CHARACTER(LEN=10)             :: YGRIDTYPE ! Grid type
index 261d855..4023d91 100644 (file)
@@ -62,7 +62,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=3)  :: YREAD
 INTEGER :: ILU     ! 1D physical dimension
 INTEGER :: IRESP   ! Error code after redding
index e03a2cf..080ef77 100644 (file)
@@ -68,7 +68,7 @@ INTEGER           :: ILU          ! 1D physical dimension
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !
index 5404c5f..30cecec 100644 (file)
@@ -62,7 +62,7 @@ IMPLICIT NONE
 !*       0.2   Declarations of local variables
 !              -------------------------------
 !
- CHARACTER(LEN=12) :: YRECFM       ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM       ! Name of the article to be read
  CHARACTER(LEN=3)  :: YREAD
 INTEGER :: ILU     ! 1D physical dimension
 INTEGER :: IRESP   ! Error code after redding
index c62b461..fa91cce 100644 (file)
@@ -76,7 +76,7 @@ IMPLICIT NONE
 !
 INTEGER           :: IRESP          ! Error code after redding
 ! 
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index 7c121aa..3acada8 100644 (file)
@@ -67,7 +67,7 @@ IMPLICIT NONE
 !
 CHARACTER(LEN=6),                 INTENT(IN) :: HPROGRAM     ! calling program
 REAL, DIMENSION(:,:),          INTENT(INOUT) :: PFIELD2D     ! 2D field to be read
-CHARACTER(LEN=12),                INTENT(IN) :: HFIELDNAME   ! name of the field PFIELD2D. Example : 'X_Y_TG'
+CHARACTER(LEN=LEN_HREC),                INTENT(IN) :: HFIELDNAME   ! name of the field PFIELD2D. Example : 'X_Y_TG'
 CHARACTER(LEN=*), OPTIONAL,      INTENT(OUT) :: HCOMMENT   !comment string
 CHARACTER(LEN=1),OPTIONAL,        INTENT(IN) :: HDIR ! type of field :
 !                                             ! 'H' : field with
@@ -82,7 +82,7 @@ REAL, DIMENSION(SIZE(PFIELD2D,1)) :: ZWORK
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: IPATCH         ! number of patches in PFIELD2D
 CHARACTER(LEN=100):: YCOMMENT       ! Comment string
-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=4 ) :: YPATCH         ! current patch
 INTEGER           :: INB_PROCIO     ! number of processes used for Z-parallel IO with MESO-NH
 !
index 67963b2..b5fa963 100644 (file)
@@ -68,7 +68,7 @@ CHARACTER(LEN=6),                 INTENT(IN) :: HPROGRAM     ! calling program
 REAL, DIMENSION(:,:,:),        INTENT(INOUT) :: PFIELD3D     ! 3D field to be read
 INTEGER,                          INTENT(IN) :: KFIRSTLAYER  ! first layer of PFIELD3D to be read
 INTEGER,                          INTENT(IN) :: KLASTLAYER   ! last layer of PFIELD3D to be read
-CHARACTER(LEN=12),                INTENT(IN) :: HFIELDNAME   ! name of the field PFIELD3D. Example : 'X_Y_TG'
+CHARACTER(LEN=LEN_HREC),                INTENT(IN) :: HFIELDNAME   ! name of the field PFIELD3D. Example : 'X_Y_TG'
  CHARACTER(LEN=*), OPTIONAL,     INTENT(OUT) :: HCOMMENT   !comment string
 CHARACTER(LEN=1),OPTIONAL,        INTENT(IN) :: HDIR ! type of field :
 !                                             ! 'H' : field with
@@ -83,7 +83,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: ILAYER         ! number of layers in PFIELD3D
 INTEGER           :: IPATCH         ! number of patches in PFIELD3D
 CHARACTER(LEN=100):: YCOMMENT       ! Comment string
-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=4 ) :: YLVL           ! current level/layer
 CHARACTER(LEN=4 ) :: YPATCH         ! current patch
 INTEGER           :: INB_PROCIO     ! number of processes used for Z-parallel IO with MESO-NH
index f7cc627..ca2436e 100644 (file)
@@ -62,7 +62,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=3)  :: YREAD
 INTEGER :: JLAYER  ! loop counter on layers
 INTEGER :: ILU     ! 1D physical dimension
index 1c52a4a..58de9ac 100644 (file)
@@ -83,7 +83,7 @@ LOGICAL           :: GTOWN          ! town variables written in the file
 INTEGER           :: IVERSION, IBUGFIX
 INTEGER           :: ILU            ! 1D physical dimension
 INTEGER           :: IRESP          ! Error code after redding
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=4)  :: YLVL
 REAL, DIMENSION(:),ALLOCATABLE  :: ZWORK      ! 2D array to write data in file
 !
index eb95b72..2874903 100644 (file)
@@ -24,7 +24,7 @@ INTEGER,              INTENT(OUT)   :: KTEB_PATCH! number of TEB patches
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: YRECFM     ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM     ! Name of the article to be read
 INTEGER           :: IRESP      ! reading return code
 !
 INTEGER           :: IVERSION   ! surface version
index 2e618c8..7bb4885 100644 (file)
@@ -84,7 +84,7 @@ INTEGER           :: ILU          ! 1D physical dimension
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=3)  :: YPATCH         ! suffix if more than 1 patch
 !
 INTEGER           :: IVERSION, IBUGFIX
index 2832610..fb80308 100644 (file)
@@ -61,7 +61,7 @@ IMPLICIT NONE
 !*       0.2   Declarations of local variables
 !              -------------------------------
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=3)  :: YREAD
 INTEGER :: JLAYER  ! loop counter on layers
 INTEGER :: ILU     ! 1D physical dimension
index c20019d..3cf88ff 100644 (file)
@@ -69,7 +69,7 @@ INTEGER           :: ILU          ! 1D physical dimension
 !
 INTEGER           :: IRESP          ! Error code after redding
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
 !-------------------------------------------------------------------------------
index 1d6e5df..438af5e 100644 (file)
@@ -24,23 +24,27 @@ USE MODI_ABOR1_SFX
 IMPLICIT NONE
 !
  CHARACTER(LEN=6),   INTENT(IN)  :: HPROGRAM ! calling program
- CHARACTER(LEN=12),  INTENT(IN)  :: HREC     ! name of the article to be written
+ CHARACTER(LEN=LEN_HREC),  INTENT(IN)  :: HREC     ! name of the article to be written
 LOGICAL,            INTENT(OUT) :: ONOWRITE ! flag for article to be written
 !
- CHARACTER(LEN=12) :: YREC
+ CHARACTER(LEN=LEN_HREC) :: YREC
 INTEGER :: IFIELD,JFIELD
 INTEGER :: ILUOUT  ! listing logical unit
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+CHARACTER(LEN=LEN_HREC) :: YFMT
+
 !-------------------------------------------------------------------------------
 IF (LHOOK) CALL DR_HOOK('MODI_WRITE_SURF:TEST_RECORD_LEN',0,ZHOOK_HANDLE)
-IF (LEN_TRIM(HREC)>12) THEN
+IF (LEN_TRIM(HREC)>LEN_HREC) THEN
   CALL GET_LUOUT(HPROGRAM,ILUOUT)
   WRITE(ILUOUT,*) '----------------------------------------------'
   WRITE(ILUOUT,*) 'Error occured when writing a field            '
   WRITE(ILUOUT,*) 'The name of the field is too long             '
-  WRITE(ILUOUT,*) 'The name must not be longer than 12 characters'
+  WRITE(ILUOUT,*) 'The name must not be longer than',LEN_HREC,' characters'
   WRITE(ILUOUT,*) 'Please shorten the name of your field         '
-  WRITE(ILUOUT,FMT='(A32,A12,A1)') ' The field name currently is : "',HREC,'"'
+  WRITE(YFMT,FMT='("(A32,A",I2.2,",A1)")') LEN_HREC
+  WRITE(ILUOUT,FMT=YFMT) ' The field name currently is : "',HREC,'"'
   WRITE(ILUOUT,*) '----------------------------------------------'
   CALL ABOR1_SFX('TEST_RECORD_LEN: FIELD NAME TOO LONG --> '//HREC)
 END IF
index 269f714..f62c430 100644 (file)
@@ -51,7 +51,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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           :: IZ
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index ab6a4b3..aa0b70d 100644 (file)
@@ -98,7 +98,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=100):: YCOMMENTUNIT   ! Comment string : unit of the datas in the field to write
  CHARACTER(LEN=2)  :: YLVL
index 021b0c6..90f9a4c 100644 (file)
@@ -82,7 +82,7 @@ INTEGER,           INTENT(IN)  :: KTEB_PATCH ! patch number being written
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
  CHARACTER(LEN=3)  :: YPATCH         ! Prefix for current patch
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index 3261a28..e1336b8 100644 (file)
@@ -68,7 +68,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=2)  :: YLVLV, YPAS
 !
index 1c9b5bf..ac6d4a3 100644 (file)
@@ -77,7 +77,7 @@ IMPLICIT NONE
 REAL, DIMENSION(SIZE(XDG,1),SIZE(XDG,3)) :: ZWORK ! Work array
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=100):: YCOMMENTUNIT   ! Comment string : unit of the datas in the field to write
  CHARACTER(LEN=2)  :: YLVLV, YPAS
index 0f4059f..2c1d67a 100644 (file)
@@ -65,7 +65,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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           :: JLAYER         ! loop counter on layers
 !
index 69c0634..bf19d7d 100644 (file)
@@ -61,7 +61,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=2)  :: YNUM
 !
index 009b68a..c5eea7d 100644 (file)
@@ -138,7 +138,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be write
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be write
  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
  CHARACTER(LEN=100):: YCOMMENTUNIT   ! Comment string : unit of the datas in the field to write
  CHARACTER(LEN=2)  :: YNUM
index 2dcb6dd..064c6fb 100644 (file)
@@ -53,7 +53,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index 15a5e39..219274a 100644 (file)
@@ -70,7 +70,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=2)  :: YNUM
 !
index 1319b44..e390cb2 100644 (file)
@@ -76,7 +76,7 @@ IMPLICIT NONE
 !
 
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=2)  :: YNUM
 !
index c65f248..709bad2 100644 (file)
@@ -65,7 +65,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=2)  :: YNUM
 !
index 86c2082..505611a 100644 (file)
@@ -72,7 +72,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=2)  :: YNUM
 !
index 980ec88..e1df5fe 100644 (file)
@@ -27,7 +27,7 @@ IMPLICIT NONE
 !* local variables
 !  ---------------
 !
- CHARACTER(LEN=12) :: 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
 INTEGER           :: IRESP      ! reading return code
 !
index ccfde11..d8e133e 100644 (file)
@@ -65,7 +65,7 @@ LOGICAL, DIMENSION(JPCOVER)    :: OCOVER   ! list of covers
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! Error code after reading
-CHARACTER(LEN=12) :: 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
 LOGICAL, DIMENSION(JPCOVER)    :: GCOVER   ! tmp list of covers
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index a242d56..7583985 100644 (file)
@@ -196,7 +196,7 @@ INTEGER,           INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem ap
 !
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 LOGICAL :: LNOWRITE
 REAL   :: XTIME0
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -330,7 +330,7 @@ INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem
 !                                             ! '-' : no horizontal dim.
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 INTEGER            :: IL
  CHARACTER(LEN=1)   :: YDIR
 LOGICAL :: LNOWRITE
@@ -448,7 +448,7 @@ INTEGER,              INTENT(OUT) :: KRESP    ! KRESP  : return-code if a proble
 !                                             ! '-' : no horizontal dim.
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 INTEGER            :: IL1
 INTEGER            :: IL2
  CHARACTER(LEN=1)   :: YDIR
@@ -567,7 +567,7 @@ INTEGER,              INTENT(OUT) :: KRESP    ! KRESP  : return-code if a proble
 !                                             ! '-' : no horizontal dim.
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
  CHARACTER(LEN=100) :: YCOMMENT
 INTEGER            :: IL1
 INTEGER            :: IL2
@@ -702,7 +702,7 @@ INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem
 !
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 LOGICAL :: LNOWRITE
 REAL   :: XTIME0
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -833,7 +833,7 @@ INTEGER,               INTENT(OUT) :: KRESP    ! KRESP  : return-code if a probl
 !                                             ! '-' : no horizontal dim.
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 INTEGER            :: IL
  CHARACTER(LEN=1)   :: YDIR
 LOGICAL :: LNOWRITE
@@ -953,7 +953,7 @@ INTEGER,             INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem
 !
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
  CHARACTER(LEN=40)  :: YFIELD
 LOGICAL :: LNOWRITE
 REAL   :: XTIME0
@@ -1087,7 +1087,7 @@ INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem
 !
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 LOGICAL :: LNOWRITE
 REAL   :: XTIME0
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
@@ -1217,7 +1217,7 @@ INTEGER,               INTENT(OUT) :: KRESP    ! KRESP  : return-code if a probl
 !                                             ! '-' : no horizontal dim.
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 INTEGER            :: IL
  CHARACTER(LEN=1)   :: YDIR
 LOGICAL :: LNOWRITE
@@ -1339,7 +1339,7 @@ INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem
 !
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 REAL    :: ZTIME
 REAL   :: XTIME0
 INTEGER :: IDAY
@@ -1466,7 +1466,7 @@ INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem
 !
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 INTEGER :: IL1
 REAL ,   DIMENSION(SIZE(TFIELD,1)) :: ZTIME
 INTEGER, DIMENSION(SIZE(TFIELD,1)) :: IDAY
@@ -1574,7 +1574,7 @@ INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem
 !
 !*      0.2   Declarations of local variables
 !
- CHARACTER(LEN=12)  :: YREC
+ CHARACTER(LEN=LEN_HREC)  :: YREC
 INTEGER :: IL1, IL2
 REAL ,   DIMENSION(SIZE(TFIELD,1),SIZE(TFIELD,2)) :: ZTIME
 INTEGER, DIMENSION(SIZE(TFIELD,1),SIZE(TFIELD,2)) :: IDAY
index 63033e1..35c116c 100644 (file)
@@ -66,7 +66,7 @@ IMPLICIT NONE
 !
 CHARACTER(LEN=6),                 INTENT(IN) :: HPROGRAM     ! calling program
 REAL, DIMENSION(:,:),             INTENT(IN) :: PFIELD2D     ! 2D field to be written
-CHARACTER(LEN=12),                INTENT(IN) :: HFIELDNAME   ! name of the field PFIELD2D. Example : 'X_Y_TG'
+CHARACTER(LEN=LEN_HREC),                INTENT(IN) :: HFIELDNAME   ! name of the field PFIELD2D. Example : 'X_Y_TG'
 CHARACTER(LEN=100),               INTENT(IN) :: HCOMMENT     ! Comment string
 CHARACTER(LEN=100),               INTENT(IN) :: HCOMMENTUNIT ! unit of the datas in PFIELD2D
  CHARACTER(LEN=1),OPTIONAL,       INTENT(IN) :: HDIR ! type of field :
@@ -131,4 +131,4 @@ IF (LHOOK) CALL DR_HOOK('WRITE_SURF_FIELD2D',1,ZHOOK_HANDLE)
 !
 !-------------------------------------------------------------------------------
 !
-      END SUBROUTINE WRITE_SURF_FIELD2D
\ No newline at end of file
+      END SUBROUTINE WRITE_SURF_FIELD2D
index 8562c2b..7486a8f 100644 (file)
@@ -68,7 +68,7 @@ CHARACTER(LEN=6),                 INTENT(IN) :: HPROGRAM     ! calling program
 REAL, DIMENSION(:,:,:),           INTENT(IN) :: PFIELD3D     ! 3D field to be written
 INTEGER,                          INTENT(IN) :: KFIRSTLAYER  ! first layer of PFIELD3D to be written
 INTEGER,                          INTENT(IN) :: KLASTLAYER   ! last layer of PFIELD3D to be written
-CHARACTER(LEN=12),                INTENT(IN) :: HFIELDNAME   ! name of the field PFIELD3D. Example : 'X_Y_TG'
+CHARACTER(LEN=LEN_HREC),                INTENT(IN) :: HFIELDNAME   ! name of the field PFIELD3D. Example : 'X_Y_TG'
 CHARACTER(LEN=100),               INTENT(IN) :: HCOMMENT     ! Comment string
 CHARACTER(LEN=100),               INTENT(IN) :: HCOMMENTUNIT ! unit of the datas in PFIELD3D
  CHARACTER(LEN=1),OPTIONAL,       INTENT(IN) :: HDIR ! type of field :
@@ -82,7 +82,7 @@ CHARACTER(LEN=100),               INTENT(IN) :: HCOMMENTUNIT ! unit of the datas
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: ILAYER         ! number of layers in PFIELD3D
 INTEGER           :: IPATCH         ! number of patches in PFIELD3D
-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=4 ) :: YLVL           ! current level/layer
 CHARACTER(LEN=4 ) :: YPATCH         ! current patch
 CHARACTER(LEN=100):: YCOMMENT       ! Comment string
@@ -143,4 +143,4 @@ IF (LHOOK) CALL DR_HOOK('WRITE_SURF_FIELD3D',1,ZHOOK_HANDLE)
 !
 !-------------------------------------------------------------------------------
 !
-      END SUBROUTINE WRITE_SURF_FIELD3D
\ No newline at end of file
+      END SUBROUTINE WRITE_SURF_FIELD3D
index e0e3288..135c8c5 100644 (file)
@@ -48,7 +48,7 @@ IMPLICIT NONE
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears 
                                     ! at the open of the file in LFI  routines 
 !
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be written
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be written
  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
  CHARACTER(LEN=100):: YCOMMENTUNIT   ! Comment string : unit of the datas in the field to write
  CHARACTER(LEN=80) :: YNAME          ! emitted species name
index 76a652a..2155d3c 100644 (file)
@@ -56,7 +56,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 INTEGER :: IINFO
index 9290824..6edabbe 100644 (file)
@@ -49,7 +49,7 @@ INTEGER           :: JDUMMY         ! loop counter
  CHARACTER(LEN=3  ):: YSTRING03      ! string
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index 63c4ab8..d48b3ff 100644 (file)
@@ -61,7 +61,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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 :: JLAYER  ! loop counter on layers
index 33fa871..b6c4ff2 100644 (file)
@@ -70,7 +70,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index 5fe159a..f1ef5c3 100644 (file)
@@ -71,7 +71,7 @@ TYPE(SURF_SNOW),    INTENT(IN) :: TPSNOW     ! snow characteristics
 INTEGER             :: ISURFTYPE_LEN
 !
  CHARACTER (LEN=100) :: YFMT           ! format for writing
- CHARACTER(LEN=12)   :: 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
  CHARACTER(LEN=100):: YCOMMENTUNIT     ! Comment string : unit of the datas in the field to write
 INTEGER             :: IRESP          ! IRESP  : return-code if a problem appears
index 327b2c8..84639b7 100644 (file)
@@ -61,7 +61,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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 :: JLAYER  ! loop counter on layers
index b06ca92..ccbb7c1 100644 (file)
@@ -90,7 +90,7 @@ LOGICAL,           INTENT(IN)  :: OLAND_USE !
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=4 ) :: YLVL
  CHARACTER(LEN=5 ) :: YPATCH
  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
index c27aee1..a9e24db 100644 (file)
@@ -65,7 +65,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
  CHARACTER(LEN=4 ) :: YLVL
  CHARACTER(LEN=100):: YCOMMENT       ! Comment string
  CHARACTER(LEN=14) :: YFORM          ! Writing format
index 6463975..5d366bc 100644 (file)
@@ -63,7 +63,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index f27cd62..4cad82a 100644 (file)
@@ -84,7 +84,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=100):: YCOMMENTUNIT   ! Comment string : unit of the datas in the field to write
 INTEGER           :: JTIME          ! loop index
index 1cb83ce..ebcb4d3 100644 (file)
@@ -86,7 +86,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=100):: YCOMMENTUNIT   ! Comment string : unit of the datas in the field to write
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index d1024f7..f94f23e 100644 (file)
@@ -58,7 +58,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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           :: JTIME          ! loop index
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index 0ef721e..b646cb3 100644 (file)
@@ -63,7 +63,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index a0564be..642c604 100644 (file)
@@ -58,7 +58,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 !
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index 99e93a2..71fc408 100644 (file)
@@ -117,7 +117,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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           :: JLAYER         ! loop index
 INTEGER           :: JTIME          ! loop index
index 2dcf208..674539c 100644 (file)
@@ -63,7 +63,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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 :: JL ! loop counter
index 5831db9..a0cfaa2 100644 (file)
@@ -71,7 +71,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 !
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
index 5c560c5..144104c 100644 (file)
@@ -57,7 +57,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index b4afb41..e1a7160 100644 (file)
@@ -60,7 +60,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index d829427..3b6354d 100644 (file)
@@ -68,7 +68,7 @@ IMPLICIT NONE
 
 !
 INTEGER           :: IRESP          ! Error code after redding
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index dead8e0..749c923 100644 (file)
@@ -62,7 +62,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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 :: JLAYER  ! loop counter on layers
index a13bb3c..76a97df 100644 (file)
@@ -61,7 +61,7 @@ INTEGER           :: JMTH, INMTH
  CHARACTER(LEN=2 ) :: YMTH
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index 51adb33..25e9b11 100644 (file)
@@ -61,7 +61,7 @@ LOGICAL,           INTENT(IN)  :: OWRITE   ! flag to write canopy terms
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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 :: JLAYER  ! loop counter on layers
index 4f103ef..13539c7 100644 (file)
@@ -56,7 +56,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index 113cad6..eb48d10 100644 (file)
@@ -61,7 +61,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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 :: JLAYER  ! loop counter on layers
index d03c570..47406a5 100644 (file)
@@ -71,7 +71,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=14) :: YFORM          ! Writing format
  CHARACTER(LEN=4 ) :: YLVL
index d53f4f0..f180a07 100644 (file)
@@ -81,7 +81,7 @@ INTEGER,           INTENT(IN)  :: KPATCH   ! current TEB patch
 !              -------------------------------
 !
 INTEGER           :: IRESP           ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
  CHARACTER(LEN=3)  :: YPATCH         ! Patch identificator
  CHARACTER(LEN=7)  :: YDIR           ! Direction identificator
index 0ee29df..95457c4 100644 (file)
@@ -62,7 +62,7 @@ IMPLICIT NONE
 !              -------------------------------
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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 :: JLAYER  ! loop counter on layers
index f3c4abc..5d6071c 100644 (file)
@@ -61,7 +61,7 @@ INTEGER          :: JMTH,INMTH
  CHARACTER(LEN=2) :: YMTH
 !
 INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
- CHARACTER(LEN=12) :: 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
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 !
index aad3c40..d74a886 100644 (file)
@@ -100,7 +100,7 @@ REAL, DIMENSION(:), POINTER :: ZHO2IP
 REAL, DIMENSION(:), POINTER :: ZHO2IM
 REAL, DIMENSION(:), POINTER :: ZHO2JP
 REAL, DIMENSION(:), POINTER :: ZHO2JM
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
 INTEGER :: IINFO_ll
 !------------------------------------------------------------------------------
index 8c84bdb..8183819 100644 (file)
@@ -224,7 +224,7 @@ REAL, DIMENSION(:,:), POINTER     :: ZIN     ! field  on all surface points
 REAL, DIMENSION(INI)              :: ZFIELD  ! field read
 REAL, DIMENSION(ILU,1)            :: ZOUT    ! final field
 REAL(KIND=JPRB) :: ZHOOK_HANDLE
- CHARACTER(LEN=12) :: YRECFM         ! Name of the article to be read
+ CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be read
 !
 IF (LHOOK) CALL DR_HOOK('ZOOM_PGD_TEB:ZOOM_PGD_TEB_GARDEN',0,ZHOOK_HANDLE)
 !
index 991ef2d..9b8942e 100755 (executable)
@@ -363,6 +363,8 @@ export CONF_DOLLAR=${LOCAL}/conf/post/${POSTCONF}
 
 fi
 
+export LEN_HREC=${LEN_HREC:-16}
+
 #
 #  Install 32/64 mesonh tools
 #