Philippe 12/09/2017: IO: MNH: length of record name is set with LEN_HREC
authorPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Tue, 12 Sep 2017 15:25:45 +0000 (17:25 +0200)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Wed, 13 Sep 2017 07:34:47 +0000 (09:34 +0200)
(cherry picked from commit 7d5bf36eb299e5b8c75035c31f215b587b906d09)

82 files changed:
src/MNH/advection_metsv.f90
src/MNH/c2r2_adjust.f90
src/MNH/call_rttov.f90
src/MNH/check_zhat.f90
src/MNH/check_zs.f90
src/MNH/compare_dad.f90
src/MNH/compute_r00.f90
src/MNH/free_atm_profile.f90
src/MNH/ice_adjust.f90
src/MNH/ice_adjust_elec.f90
src/MNH/ini_aircraft_balloon.f90
src/MNH/ini_cpl.f90
src/MNH/ini_deep_convection.f90
src/MNH/ini_lb.f90
src/MNH/ini_ls.f90
src/MNH/ini_modeln.f90
src/MNH/ini_param_elec.f90
src/MNH/ini_prog_var.f90
src/MNH/ini_radiations.f90
src/MNH/ini_radiations_ecmwf.f90
src/MNH/ini_segn.f90
src/MNH/ini_size_spawn.f90
src/MNH/ini_sizen.f90
src/MNH/ini_spectren.f90
src/MNH/ini_surf_rad.f90
src/MNH/init_for_convlfi.f90
src/MNH/khko_notadjust.f90
src/MNH/ls_coupling.f90
src/MNH/menu_diachro.f90
src/MNH/mnhread_zs_dummyn.f90
src/MNH/mnhwrite_zs_dummyn.f90
src/MNH/modd_budget.f90
src/MNH/mode_RBK90_Integrator.f90
src/MNH/modeln.f90
src/MNH/paspol.f90
src/MNH/prandtl.f90
src/MNH/prep_pgd.f90
src/MNH/radiations.f90
src/MNH/rain_c2r2_khko.f90
src/MNH/rain_ice_elec.f90
src/MNH/read_all_data_grib_case.f90
src/MNH/read_dummy_gr_fieldn.f90
src/MNH/read_field.f90
src/MNH/read_grid_time_mesonh_case.f90
src/MNH/read_hgrid.f90
src/MNH/read_hgridn.f90
src/MNH/read_precip_field.f90
src/MNH/read_surf_mnh.f90
src/MNH/set_grid.f90
src/MNH/set_ref.f90
src/MNH/set_subdomain.f90
src/MNH/shallow_mf_pack.f90
src/MNH/spawn_field2.f90
src/MNH/tke_eps_sources.f90
src/MNH/turb.f90
src/MNH/turb_cloud_index.f90
src/MNH/turb_hor_dyn_corr.f90
src/MNH/turb_hor_sv_flux.f90
src/MNH/turb_hor_thermo_corr.f90
src/MNH/turb_hor_thermo_flux.f90
src/MNH/turb_hor_uv.f90
src/MNH/turb_hor_uw.f90
src/MNH/turb_hor_vw.f90
src/MNH/turb_ver.f90
src/MNH/turb_ver_dyn_flux.f90
src/MNH/turb_ver_sv_flux.f90
src/MNH/turb_ver_thermo_corr.f90
src/MNH/turb_ver_thermo_flux.f90
src/MNH/ver_thermo.f90
src/MNH/write_balloonn.f90
src/MNH/write_budget.f90
src/MNH/write_diachro.f90
src/MNH/write_dummy_gr_fieldn.f90
src/MNH/write_lbn.f90
src/MNH/write_lfifm1_for_diag.f90
src/MNH/write_lfifm1_for_diag_supp.f90
src/MNH/write_lfifmn_fordiachron.f90
src/MNH/write_lfin.f90
src/MNH/write_phys_param.f90
src/MNH/write_zsmt.f90
src/MNH/zoom_pgd.f90
src/MNH/zsmt_pgd.f90

index 06d6899..09b8e63 100644 (file)
@@ -259,7 +259,7 @@ INTEGER             :: IRESP        ! Return code of FM routines
 INTEGER             :: IGRID        ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH       ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 INTEGER             :: ILUOUT       ! logical unit
 INTEGER             :: ISPLIT_PPM   ! temporal time splitting 
 INTEGER             :: IIB, IIE, IJB, IJE
index 7025d32..26873c0 100644 (file)
@@ -221,7 +221,7 @@ INTEGER             :: ILENCH     ! Length of comment string in LFIFM file
 INTEGER             :: JITER,ITERMAX  ! iterative loop for first order adjustment
 INTEGER             :: ILUOUT     ! Logical unit of output listing 
 CHARACTER (LEN=100) :: YCOMMENT   ! Comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM     ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM     ! Name of the desired field in LFIFM file
 !-------------------------------------------------------------------------------
 !
 !*       1.     PRELIMINARIES
index 4a8f5b0..bf67be6 100644 (file)
@@ -626,7 +626,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string 
 
-CHARACTER(LEN=16) :: YRECFM         ! Name of the article to be written
+CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be written
 CHARACTER(LEN=22) :: YCOMMENT       ! Comment string
 CHARACTER(LEN=8)  :: YINST  
 CHARACTER(LEN=4)  :: YBEG, YEND
index cf2592d..7c4207b 100644 (file)
@@ -109,7 +109,7 @@ REAL                :: ZLEN2                ! Decay scale for small-scale topogr
 INTEGER             :: IRESP                ! return-code if problems occured
 INTEGER             :: ILUOUT0              ! logical unit for file CLUOUT0
 INTEGER             :: IGRID,ILENCH         !   File 
-CHARACTER (LEN=16)  :: YRECFM               ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM               ! management
 CHARACTER (LEN=100) :: YCOMMENT             ! variables 
 LOGICAL             :: GTHINSHELL
 !
index b564a4d..4c73d92 100644 (file)
@@ -110,7 +110,7 @@ INTEGER,             INTENT(IN)    :: KJINF     ! domain, compared to the old
 INTEGER             :: IRESP                ! return-code if problems occured
 INTEGER             :: ILUOUT0              ! logical unit for file CLUOUT0
 INTEGER             :: IGRID,ILENCH         !   File 
-CHARACTER (LEN=16)  :: YRECFM               ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM               ! management
 CHARACTER (LEN=100) :: YCOMMENT             ! variables 
 !
 INTEGER             :: IDXRATIO = 0         ! aspect ratios during previous
index b23db51..abba812 100644 (file)
@@ -98,7 +98,7 @@ INTEGER             :: IIU_1,IIU_2    ! Upper dimension in x direction
 INTEGER             :: IJU_1,IJU_2    ! Upper dimension in y direction
 INTEGER             :: IKU_1,IKU_2    ! Upper dimension in z direction
 !
-CHARACTER (LEN=16) :: YRECFM
+CHARACTER (LEN=LEN_HREC) :: YRECFM
 INTEGER            :: ILENCH, IGRID
 CHARACTER (LEN=100):: YCOMMENT
 CHARACTER(LEN=2)    :: YDIR   ! Type  of the data field in LFIFM file
index a59a5c9..47da250 100644 (file)
@@ -99,7 +99,7 @@ INTEGER  :: ININAR               ! number of articles  present in
 INTEGER  :: ITYPE                ! type of file (conv2dia and transfer)
 !
 CHARACTER (LEN=100)                :: YCOMMENT
-CHARACTER (LEN=16)                 :: YRECFM
+CHARACTER (LEN=LEN_HREC)                 :: YRECFM
 INTEGER                            :: IFILECUR,JFILECUR,NIU,NJU,NKU,IGRID,ILENCH
 INTEGER                            :: NFILES,JLOOP
 REAL                               :: ZXOR,ZYOR,ZDX,ZDY
index e0bd002..be226a6 100644 (file)
@@ -162,7 +162,7 @@ INTEGER                               :: IIMIN, IIMAX, IJMIN, IJMAX
 
 INTEGER           :: IRESP                !
 INTEGER           :: IGRID, ILENCH        !
-CHARACTER(LEN=16) :: YRECFM               ! name of field to be recorded
+CHARACTER(LEN=LEN_HREC) :: YRECFM               ! name of field to be recorded
 CHARACTER(LEN=100):: YCOMMENT             ! comment to be recorded
 
 REAL, DIMENSION(SIZE(PZMASS_MX,1),SIZE(PZMASS_MX,2)) &
index a04f634..6e1a629 100644 (file)
@@ -253,7 +253,7 @@ INTEGER             :: ILENG      ! Length of comment string in LFIFM file
 INTEGER             :: IGRID      ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH     ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT   ! Comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM     ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM     ! Name of the desired field in LFIFM file
 !
 INTEGER             :: IIU,IJU,IKU! dimensions of dummy arrays
 INTEGER             :: IIB,IJB    ! Horz index values of the first inner mass points
index 4c7b2c6..1f36d13 100644 (file)
@@ -287,7 +287,7 @@ INTEGER             :: ILENG      ! Length of comment string in LFIFM file
 INTEGER             :: IGRID      ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH     ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT   ! Comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM     ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM     ! Name of the desired field in LFIFM file
 !
 INTEGER             :: IIU,IJU,IKU! dimensions of dummy arrays
 INTEGER             :: IIB,IJB    ! Horz index values of the first inner mass points
index 2a93c0d..d59e999 100644 (file)
@@ -133,7 +133,7 @@ CHARACTER(LEN=2)    :: YDIR   ! Type  of the data field in LFIFM file
 INTEGER             :: IGRID   ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH  ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT!comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM  ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM  ! Name of the desired field in LFIFM file
 
 !
 !----------------------------------------------------------------------------
index 7878ae9..7b102d7 100644 (file)
@@ -308,7 +308,7 @@ REAL, DIMENSION(:,:,:,:),        INTENT(OUT) :: PLBYRS  ,PLBYSVS  ! in x and y-d
 INTEGER                :: ILUOUT                     !  Logical unit number
                                                      ! associated with HLUOUT 
 INTEGER                :: IGRID,ILENCH,IRESP,ININAR      !  File 
-CHARACTER (LEN=16)     :: YRECFM                               ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM                               ! management
 CHARACTER (LEN=100)    :: YCOMMENT                             ! variables 
 CHARACTER(LEN=2)       :: YDIR 
 CHARACTER (LEN=40)     :: YTITLE                     !  Title for date print 
index d3e9e03..6176028 100644 (file)
@@ -180,7 +180,7 @@ REAL, DIMENSION(:,:),   INTENT(INOUT) :: PCG_TOTAL_NUMBER ! Total number of CG
 !
 INTEGER                :: ILUOUT
 INTEGER                :: IGRID,ILENCH,IRESP  !   File 
-CHARACTER (LEN=16)     :: YRECFM                    ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM                    ! management
 CHARACTER (LEN=100)    :: YCOMMENT                  ! variables  
 INTEGER                :: JSV                       ! number of tracers
 !
index 2022a8a..e20eee0 100644 (file)
@@ -212,7 +212,7 @@ INTEGER             :: JSV,JRR                    ! Loop index for MOIST AND
                                                   !  additional scalar variables 
 INTEGER             :: IRR                        !  counter for moist variables
 INTEGER             :: IGRID,ILENCH,IRESP  !   File 
-CHARACTER (LEN=16)  :: YRECFM              ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM              ! management
 CHARACTER (LEN=100) :: YCOMMENT            ! variables  
 CHARACTER (LEN=2)   :: YDIR
 CHARACTER (LEN=4)   :: YDIRLB
@@ -223,7 +223,7 @@ LOGICAL :: GHORELAX_R, GHORELAX_SV ! switch for the horizontal relaxation
                                    ! for moist and scalar variables
 CHARACTER (LEN= LEN(HGETRVM)), DIMENSION (7) :: YGETRXM ! Arrays with  the get indicators 
                                                         !  for the moist variables
-CHARACTER (LEN= 16), DIMENSION (7) :: YRECFMX,YRECFMY ! arrays with the name  of the LB fields
+CHARACTER (LEN=LEN_HREC), DIMENSION (7) :: YRECFMX,YRECFMY ! arrays with the name  of the LB fields
                                                       ! in FM files for the moist variables
 INTEGER :: IMASDEV                                                      
 !-------------------------------------------------------------------------------
index 25672c8..7b8b7d3 100644 (file)
@@ -125,7 +125,7 @@ LOGICAL,               INTENT(IN),   OPTIONAL :: OSTEADY_DMASS ! Md evolution lo
 !*       0.2   declarations of local variables
 !
 INTEGER             :: IGRID,ILENCH,IRESP  !   File 
-CHARACTER (LEN=16)  :: YRECFM              ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM              ! management
 CHARACTER (LEN=100) :: YCOMMENT            ! variables  
 CHARACTER(LEN=2)    :: YDIR                ! 
 INTEGER                :: ILUOUT                     !  Logical unit number
index b1152ac..ebf31ef 100644 (file)
@@ -438,7 +438,7 @@ CHARACTER(LEN=2)    :: YDIR   ! Type  of the data field in LFIFM file
 INTEGER             :: IGRID   ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH  ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT!comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM  ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM  ! Name of the desired field in LFIFM file
 INTEGER             :: IIU     ! Upper dimension in x direction (local)
 INTEGER             :: IJU     ! Upper dimension in y direction (local)
 INTEGER             :: IIU_ll  ! Upper dimension in x direction (global)
index e6b8039..8a3f2ed 100644 (file)
@@ -135,7 +135,7 @@ REAL, DIMENSION(:,:), ALLOCATABLE :: ZMANSELL1, ZMANSELL2 ! Used to initialize
                                                           ! XMANSELL array
 INTEGER             :: IGRID,ILENCH,IRESP
 CHARACTER (LEN=100) :: YCOMMENT
-CHARACTER (LEN=16)  :: YRECFM
+CHARACTER (LEN=LEN_HREC)  :: YRECFM
 CHARACTER (LEN=2)   :: YDIR
 !
 INTEGER             :: JLWC, JTEMP
index 7494a0f..f1a637a 100644 (file)
@@ -148,7 +148,7 @@ CHARACTER(LEN=*), INTENT(IN), OPTIONAL  :: HCHEMFILE  ! Name of the chem file
 INTEGER                :: ILUOUT                     !  Logical unit number
                                                      ! associated with HLUOUT 
 INTEGER                :: IGRID,ILENCH,IRESP,ININAR      !  File 
-CHARACTER (LEN=16)     :: YRECFM                               ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM                               ! management
 CHARACTER (LEN=100)    :: YCOMMENT                             ! variables 
 CHARACTER(LEN=2)       :: YDIR 
 CHARACTER(LEN=32)      :: YDESFM
index 27926cd..2c4a176 100644 (file)
@@ -177,7 +177,7 @@ REAL, DIMENSION(:,:,:),     INTENT(OUT) :: PRADEFF ! effective radius
 !*       0.2   declarations of local variables
 !
 INTEGER                :: IGRID,ILENCH,IRESP  !   File 
-CHARACTER (LEN=16)     :: YRECFM              ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM              ! management
 CHARACTER (LEN=100)    :: YCOMMENT            ! variables  
 !
 INTEGER, DIMENSION(0:11) :: IBIS, INOBIS ! Cumulative number of days per month
index 6c2cee1..44e51a7 100644 (file)
@@ -280,7 +280,7 @@ REAL, DIMENSION(:,:),ALLOCATABLE :: ZLON          ! longitude
 REAL, DIMENSION(SIZE(PSTATM,1)) :: ZZSTAT ! half level altitudes of standard atm.
 !
 INTEGER                :: IGRID,ILENCH,IRESP  !   File 
-CHARACTER (LEN=16)     :: YRECFM              ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM              ! management
 CHARACTER (LEN=100)    :: YCOMMENT            ! variables  
 !
 INTEGER :: IINFO_ll                   ! return code of parallel routine
index 503eebc..61f716b 100644 (file)
@@ -219,7 +219,7 @@ INTEGER            :: IRESP,ILUSEG,ININAR         ! File management variables
 INTEGER            :: IGRID,ILENCH                !             "
 CHARACTER(LEN=100) :: YCOMMENT                    !             "
 CHARACTER(LEN=2)   :: YDIR    ! Type  of the data field in LFIFM file
-CHARACTER (LEN=16) :: YRECFM  ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC) :: YRECFM  ! Name of the desired field in LFIFM file
 CHARACTER (LEN=5)  :: YCONF                       ! Local variables which have
 LOGICAL            :: GFLAT                       ! the same definition as the
 LOGICAL            :: GUSERV,GUSERC,GUSERR,GUSERI ! variables in module MODD_CONF,
index b0a1712..3117f1f 100644 (file)
@@ -132,7 +132,7 @@ CHARACTER (LEN=5)  :: YPRESOPT        ! Pressure solver option of model 1
 INTEGER            :: IITR            ! Iterations of pressure solver of model 1
 CHARACTER (LEN=28) :: YMY_NAME, YDAD_NAME
 CHARACTER (LEN=2)  :: YSTORAGE_TYPE
-CHARACTER (LEN=16) :: YRECFM
+CHARACTER (LEN=LEN_HREC) :: YRECFM
 INTEGER            :: ILENCH, IGRID
 CHARACTER (LEN=100):: YCOMMENT
 INTEGER            :: IMI
index 3a94236..c25a827 100644 (file)
@@ -150,7 +150,7 @@ CHARACTER(LEN=2)    :: YDIR    ! Type  of the data field in LFIFM file
 INTEGER             :: IGRID   ! C-grid indicator in LFIFM file 
 INTEGER             :: ILENCH  ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM  ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM  ! Name of the desired field in LFIFM file
 INTEGER             :: IJPHEXT
 !
 !-------------------------------------------------------------------------------
index 06c9124..81c3c1a 100644 (file)
@@ -180,7 +180,7 @@ CHARACTER(LEN=2)    :: YDIR   ! Type  of the data field in LFIFM file
 INTEGER             :: IGRID   ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH  ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT!comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM  ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM  ! Name of the desired field in LFIFM file
 INTEGER             :: IIU     ! Upper dimension in x direction (local)
 INTEGER             :: IJU     ! Upper dimension in y direction (local)
 INTEGER             :: IIU_ll  ! Upper dimension in x direction (global)
index 9eb2433..b42199c 100644 (file)
@@ -82,7 +82,7 @@ REAL, DIMENSION(:,:),   INTENT(OUT) :: PTSRAD    ! radiative surface temperature
 !*       0.2   declarations of local variables
 !
 INTEGER                :: IGRID,ILENCH,IRESP  !   File 
-CHARACTER (LEN=16)     :: YRECFM              ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM              ! management
 CHARACTER (LEN=100)    :: YCOMMENT            ! variables  
 !
 !-------------------------------------------------------------------------------
index 7384e4c..518ed32 100644 (file)
@@ -106,7 +106,7 @@ CHARACTER(LEN=*),       INTENT(IN)    :: HLUOUT      ! output listing
 !*       0.2   Local variables
 !
 INTEGER  :: IGRID,ILENCH,IRESP,ILUOUT          ! return code of file management
-CHARACTER (LEN=16)     :: YRECFM               ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM               ! management
 CHARACTER (LEN=100)    :: YCOMMENT             ! variables
 CHARACTER (LEN=2)      :: YDIR                 !
 INTEGER, DIMENSION(3)  :: ITDATE               ! date array
index ce3bddc..df4cb51 100644 (file)
@@ -160,7 +160,7 @@ INTEGER             :: IGRID      ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH     ! Length of comment string in LFIFM file
 INTEGER             :: ILUOUT     ! Logical unit of output listing 
 CHARACTER (LEN=100) :: YCOMMENT   ! Comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM     ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM     ! Name of the desired field in LFIFM file
 
 ! For Activation :                       
 LOGICAL, DIMENSION(SIZE(PRHODREF,1),SIZE(PRHODREF,2),SIZE(PRHODREF,3)) &
index a7cb043..514aecb 100644 (file)
@@ -263,7 +263,7 @@ REAL, DIMENSION(:,:,:,:),        INTENT(OUT) :: PLBYRS  ,PLBYSVS  ! in x and y-d
 INTEGER                :: ILUOUT                     !  Logical unit number
                                                      ! associated with HLUOUT 
 INTEGER                :: IGRID,ILENCH,IRESP   !  File 
-CHARACTER (LEN=16)     :: YRECFM                     ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM                     ! management
 CHARACTER (LEN=100)    :: YCOMMENT                   ! variables  
 CHARACTER(LEN=2)       :: YDIR
 REAL                   :: ZLENG                      ! Interpolation length
index c222f2a..54e4b02 100644 (file)
@@ -74,9 +74,9 @@ CHARACTER(LEN=*) :: HFILEDIA, HLUOUTDIA
 !              ---------------
 
 !
-CHARACTER(LEN=16) :: YRECFM
+CHARACTER(LEN=LEN_HREC) :: YRECFM
 CHARACTER(LEN=20) :: YCOMMENT
-CHARACTER(LEN=16),DIMENSION(1500),SAVE    :: YGROUP
+CHARACTER(LEN=LEN_HREC),DIMENSION(1500),SAVE    :: YGROUP
 INTEGER   ::   ILENG, ILENCH, IGRID, J, JJ, IALREADY
 INTEGER   ::   IRESPDIA
 INTEGER,SAVE   ::   IGROUP=0
@@ -95,7 +95,7 @@ IF(HGROUP == 'END')THEN
     RETURN
   ENDIF
   IGRID=0
-  ILENG=16*IGROUP
+  ILENG=LEN_HREC*IGROUP
   ILENCH=LEN(YCOMMENT)
   YRECFM='MENU_BUDGET.DIM'
   CALL FMWRIT(HFILEDIA,YRECFM,HLUOUTDIA,'--',ILENG,&
@@ -104,8 +104,8 @@ IF(HGROUP == 'END')THEN
   YRECFM='MENU_BUDGET'
   ALLOCATE(ITABCHAR(ILENG))
   DO JJ=1,IGROUP
-    DO J = 1,16
-      ITABCHAR(16*(JJ-1)+J) = ICHAR(YGROUP(JJ)(J:J))
+    DO J = 1,LEN_HREC
+      ITABCHAR(LEN_HREC*(JJ-1)+J) = ICHAR(YGROUP(JJ)(J:J))
     ENDDO
   ENDDO
   CALL FMWRIT(HFILEDIA,YRECFM,HLUOUTDIA,'--',ITABCHAR, &
@@ -127,11 +127,11 @@ ELSE IF(HGROUP == 'READ')THEN
   YRECFM='MENU_BUDGET'
   CALL FMREAD(HFILEDIA,YRECFM,HLUOUTDIA,'--',ITABCHAR, &
   IGRID,ILENCH,YCOMMENT,IRESPDIA)
-  IGROUP=ILENG/16
+  IGROUP=ILENG/LEN_HREC
 ! print *,' ILENG ILENCH IGROUP ',ILENG,ILENCH,IGROUP
   DO JJ=1,IGROUP
-    DO J = 1,16
-      YGROUP(JJ)(J:J)=CHAR(ITABCHAR(16*(JJ-1)+J))
+    DO J = 1,LEN_HREC
+      YGROUP(JJ)(J:J)=CHAR(ITABCHAR(LEN_HREC*(JJ-1)+J))
     ENDDO
   ENDDO
   DO JJ=1,IGROUP
index 4f554c9..6d9e2db 100644 (file)
@@ -88,7 +88,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of 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=100):: YCOMMENT       ! Comment string
 !
 INTEGER           :: IIU            ! X array size
index 7d68b01..a2ba3ff 100644 (file)
@@ -84,7 +84,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
                                     ! at the open of the file in LFI  routines 
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of 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=100):: YCOMMENT       ! Comment string
 !
 !
index f836d15..be0d2e3 100644 (file)
@@ -72,7 +72,7 @@ CHARACTER(LEN=2), SAVE, DIMENSION(:,:),  & ! resulting string character of the
         ALLOCATABLE :: CBUACTION           ! transcription of the budget actions 
                                            ! (integer) read in  namelists or 
                                            ! set by default
-CHARACTER (LEN=16), SAVE, DIMENSION(:,:),& ! names of records on the FM file 
+CHARACTER (LEN=LEN_HREC), SAVE, DIMENSION(:,:),& ! names of records on the FM file 
                  ALLOCATABLE :: CBURECORD  ! for the budgets 
 !
 CHARACTER (LEN=99), SAVE, DIMENSION(:,:),& ! name of a process for a budget. It
index 3746e17..4e1c88a 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=LEN_HREC) :: ros_Name
+   CHARACTER(LEN=16) :: ros_Name
 !~~~>  Local variables
    REAL :: Roundoff, FacMin, FacMax, FacRej, FacSafe
    REAL :: Hmin, Hmax, Hstart
index cf77141..bed9a00 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=LEN_HREC)         :: YTCOUNT,YPOINTS
+CHARACTER(len=16)         :: YTCOUNT,YPOINTS
 
 REAL         :: ZSTAT_CSTORE,ZSTAT_CBOUND,ZSTAT_CGUESS,ZSTAT_CADV,ZSTAT_CSOURCES
 REAL         :: ZSTAT_CDIFF,ZSTAT_CRELAX,ZSTAT_CPARAM
index a646154..b956876 100644 (file)
@@ -146,7 +146,7 @@ REAL,  DIMENSION(:,:,:), ALLOCATABLE :: ZTEMPO, ZSVT ! Work array
 INTEGER           :: IGRID     ! IGRID : grid indicator
 INTEGER           :: ILENCH    ! ILENCH : length of comment string
 !
-CHARACTER(LEN=16) :: 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=2) :: YDIR      ! Type of the data field
 INTEGER           :: IRESP     ! IRESP  : return-code if a problem appears
index 9fedcde..a66ecfb 100644 (file)
@@ -277,7 +277,7 @@ INTEGER             :: ILENG        ! Length of the data field in LFIFM file
 INTEGER             :: IGRID        ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH       ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 INTEGER::  ISV                      ! number of scalar variables       
 INTEGER::  JSV                      ! loop index for the scalar variables  
 
index 7689fe3..90bd353 100644 (file)
@@ -140,7 +140,7 @@ REAL, DIMENSION(:,:),ALLOCATABLE   :: ZWORK ! work array for lat and lon reshape
 REAL, DIMENSION(:,:),ALLOCATABLE   :: ZWORK_LAT ! work array for lat and lon reshape
 REAL, DIMENSION(:,:),ALLOCATABLE   :: ZWORK_LON ! work array for lat and lon reshape
 REAL, DIMENSION(:,:),ALLOCATABLE   :: ZZS ! work array for lat and lon reshape
-CHARACTER(LEN=16) :: YRECFM   ! name of record
+CHARACTER(LEN=LEN_HREC) :: YRECFM   ! name of record
 INTEGER           :: IGRID    ! grid location
 INTEGER           :: ILENCH   ! length of comment string
 CHARACTER(LEN=100):: YCOMMENT ! comment string
index 7675f27..880f903 100644 (file)
@@ -601,7 +601,7 @@ INTEGER             :: IRESP        ! Return code of FM routines
 INTEGER             :: IGRID        ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH       ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 REAL, DIMENSION(SIZE(PDTHRAD,1),SIZE(PDTHRAD,2),SIZE(PDTHRAD,3)) &
      :: ZSTORE_3D, ZSTORE_3D2! 3D work array for storage
 REAL, DIMENSION(SIZE(PDTHRAD,1),SIZE(PDTHRAD,2)) &
index 6b18687..9593854 100644 (file)
@@ -414,7 +414,7 @@ REAL, DIMENSION(:), ALLOCATABLE    :: ZRTMIN
 REAL, DIMENSION(:), ALLOCATABLE    :: ZCTMIN
 REAL :: ZTMP
 CHARACTER (LEN=100) :: YCOMMENT   ! Comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM     ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM     ! Name of the desired field in LFIFM file
 !
 !
 !
index d2b1c00..0e20f19 100644 (file)
@@ -458,7 +458,7 @@ REAL, DIMENSION(SIZE(XRTMIN))     :: ZRTMIN
 INTEGER , DIMENSION(SIZE(GMICRO)) :: I1,I2,I3 ! Used to replace the COUNT
 INTEGER                           :: JL       ! and PACK intrinsics
 CHARACTER (LEN=100) :: YCOMMENT   ! Comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM     ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM     ! Name of the desired field in LFIFM file
 !
 LOGICAL, DIMENSION(:,:),ALLOCATABLE :: GELEC ! Logical of work for elec
 REAL, DIMENSION(:),   ALLOCATABLE :: ZRSMIN_ELEC  ! Limit value of ZRXS where charge is available
index 91d0ac3..e55c8e1 100644 (file)
@@ -278,7 +278,7 @@ INTEGER  :: IDATE
 INTEGER  :: ITIMESTEP
 CHARACTER(LEN=10) :: CSTEPUNIT
 !chemistery field
-CHARACTER(LEN=LEN_HREC)                  :: YPRE_MOC="PRE_MOC1.nam"
+CHARACTER(LEN=16)                  :: YPRE_MOC="PRE_MOC1.nam"
 INTEGER, DIMENSION(:), ALLOCATABLE :: INUMGRIB, INUMLEV  ! grib
 INTEGER, DIMENSION(:), ALLOCATABLE :: INUMLEV1, INUMLEV2 !numbers
 INTEGER                            :: IMOC
@@ -287,7 +287,7 @@ INTEGER                            :: ICHANNEL
 INTEGER                            :: INDX
 INTEGER                            :: INACT
 CHARACTER(LEN=40)                  :: YINPLINE        ! input line
-CHARACTER(LEN=LEN_HREC)                  :: YFIELD
+CHARACTER(LEN=16)                  :: 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 0a733a3..1cf4325 100644 (file)
@@ -126,7 +126,7 @@ LOGICAL,                         INTENT(IN) :: OREAD_ALL       ! flag to read th
 !*       0.2   declarations of local variables
 !
 INTEGER             :: IGRID,ILENCH,IRESP         !   File 
-CHARACTER (LEN=16)  :: YRECFM                     ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM                     ! management
 CHARACTER (LEN=100) :: YCOMMENT                   ! variables
 CHARACTER (LEN=20 ) :: YSTRING20                  ! string
 CHARACTER (LEN=3  ) :: YSTRING03                  ! string
index 07a16e6..99ea427 100644 (file)
@@ -368,7 +368,7 @@ REAL, DIMENSION(KIU,KJU,KKU) :: Z3D               ! 3D array used to read  data
                                                   ! in initial file 
 REAL, DIMENSION(KIU,KJU,KKU) :: ZWORK             ! to compute supersaturation 
 INTEGER             :: IGRID,ILENCH,IRESP         !   File 
-CHARACTER (LEN=16)  :: YRECFM                     ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM                     ! management
 CHARACTER (LEN=100) :: YCOMMENT                   ! variables 
 CHARACTER (LEN=2)   :: YDIR                       !
 INTEGER             :: ILUOUT                     ! Unit number for prints
index 268b5fd..0919d6b 100644 (file)
@@ -128,7 +128,7 @@ INTEGER            :: ILENCH     ! length of comment string
 INTEGER            :: IMASDEV    ! Masdev version
 
 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
 INTEGER            :: JL         ! loop controls
 INTEGER            :: ILMAX_LS
 !
index aff3b67..d7e1e4e 100644 (file)
@@ -110,7 +110,7 @@ CHARACTER(LEN=2) , INTENT(OUT) :: HSTORAGE_TYPE
 !
 !*       0.2   declarations of local variables
 !
-CHARACTER(LEN=16)      :: YRECFM
+CHARACTER(LEN=LEN_HREC)      :: YRECFM
 INTEGER                :: IGRID,ILENCH,IRESP
 CHARACTER(LEN=100)     :: YCOMMENT
 INTEGER                :: IMASDEV
index 91e0c67..57fdcb2 100644 (file)
@@ -105,7 +105,7 @@ CHARACTER(LEN=2) , INTENT(OUT) :: HSTORAGE_TYPE
 !*       0.2   declarations of local variables
 !
 INTEGER             :: ILUOUT
-CHARACTER (LEN=16)  :: YRECFM
+CHARACTER (LEN=LEN_HREC)  :: YRECFM
 INTEGER             :: ILENCH, IGRID, IRESP
 CHARACTER (LEN=100) :: YCOMMENT
 REAL                :: ZLAT0,ZLON0,ZRPK,ZBETA
index 1520927..859dcec 100644 (file)
@@ -134,7 +134,7 @@ REAL, DIMENSION(SIZE(PINPRR,1),SIZE(PINPRR,2)) :: Z2D ! 2D array to read  data
 REAL, DIMENSION(SIZE(PINPRR3D,1),SIZE(PINPRR3D,2),SIZE(PINPRR3D,3)) :: Z3D ! 3D array to read  data
                                                   ! in initial file 
 INTEGER             :: IGRID,ILENCH,IRESP         !   File 
-CHARACTER (LEN=16)  :: YRECFM                     ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM                     ! management
 CHARACTER (LEN=100) :: YCOMMENT                   ! variables   
 CHARACTER(LEN=2)    :: YDIR
 CHARACTER(LEN=4)    :: YGETRCT,YGETRRT,YGETRST,YGETRGT,YGETRHT                    
index f69ab13..6e997be 100644 (file)
@@ -60,7 +60,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),  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(OUT) :: PFIELD   ! the real scalar to be read
 INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
 CHARACTER(LEN=100), INTENT(OUT) :: HCOMMENT ! comment
@@ -195,7 +195,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),   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(OUT):: PFIELD   ! array containing the data field
 INTEGER,             INTENT(OUT):: KRESP    ! KRESP  : return-code if a problem appears
@@ -217,7 +217,7 @@ REAL, DIMENSION(:),   ALLOCATABLE :: ZWORK1D! work array read in the file
 REAL                              :: ZW     ! work value
 
 INTEGER           :: IMASDEV
-CHARACTER(LEN=20) :: YREC
+CHARACTER(LEN=LEN_HREC) :: YREC
 CHARACTER(LEN=2)  :: YSTORAGE_TYPE
 !
 INTEGER           :: IIU, IJU, IIB, IJB, IIE, IJE ! dimensions of horizontal fields
@@ -458,7 +458,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),       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      ! second dimension
 REAL, DIMENSION(KL1,KL2),INTENT(OUT) :: PFIELD   ! array containing the data field
@@ -585,7 +585,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),   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(OUT):: PFIELD   ! array containing the data field
 LOGICAL,DIMENSION(KL2),   INTENT(IN) ::OFLAG  ! mask for array filling
@@ -603,7 +603,7 @@ INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string
 
 INTEGER           :: IMASDEV
-CHARACTER(LEN=20) :: YREC
+CHARACTER(LEN=LEN_HREC) :: YREC
 CHARACTER(LEN=2)  :: YDIR
 CHARACTER(LEN=2)  :: YSTORAGE_TYPE
 !
@@ -758,7 +758,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),   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) :: KCOVER ! index of the vertical level, it should be a index such that LCOVER(KCOVER)=.TRUE.
 REAL, DIMENSION(KL1), INTENT(OUT):: PFIELD   ! array containing the data field
@@ -776,7 +776,7 @@ INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string
 
 INTEGER           :: IMASDEV
-CHARACTER(LEN=20) :: YREC
+CHARACTER(LEN=LEN_HREC) :: YREC
 CHARACTER(LEN=2)  :: YDIR
 CHARACTER(LEN=2)  :: YSTORAGE_TYPE
 !
@@ -918,7 +918,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),  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(OUT) :: KFIELD   ! the integer to be read
 INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
 CHARACTER(LEN=100), INTENT(OUT) :: HCOMMENT ! comment
@@ -938,7 +938,7 @@ INTEGER           :: INFO_ll
 LOGICAL, DIMENSION(255) :: GCOVER
 REAL, DIMENSION(:,:,:), ALLOCATABLE :: ZCOVER
 INTEGER :: JCOVER
-CHARACTER(LEN=16) :: YRECFM
+CHARACTER(LEN=LEN_HREC) :: YRECFM
 !JUANZ
 INTEGER           :: NCOVER,ICOVER,IKL2
 REAL,DIMENSION(:,:,:), ALLOCATABLE :: ZWORK3D
@@ -1090,7 +1090,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),      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(OUT) :: KFIELD   ! the integer to be read
 INTEGER,                INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
@@ -1192,7 +1192,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),  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(OUT) :: HFIELD    ! the integer to be read
 INTEGER,            INTENT(OUT) :: KRESP     ! KRESP  : return-code if a problem appears
 CHARACTER(LEN=100), INTENT(OUT) :: HCOMMENT  ! comment
@@ -1336,7 +1336,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),      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(OUT) :: OFIELD   ! array containing the data field
 INTEGER,                INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
@@ -1442,7 +1442,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),  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(OUT) :: OFIELD   ! array containing the data field
 INTEGER,            INTENT(OUT) :: KRESP    ! KRESP  : return-code if a problem appears
 CHARACTER(LEN=100), INTENT(OUT) :: HCOMMENT ! comment
@@ -1537,7 +1537,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),  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(OUT)   :: KYEAR    ! year
 INTEGER,            INTENT(OUT)   :: KMONTH   ! month
 INTEGER,            INTENT(OUT)   :: KDAY     ! day
@@ -1550,7 +1550,7 @@ CHARACTER(LEN=100), INTENT(OUT)   :: HCOMMENT ! comment
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string
 !
-CHARACTER(LEN=16)              :: YRECFM     ! Name of the article to be written
+CHARACTER(LEN=LEN_HREC)              :: YRECFM     ! Name of the article to be written
 CHARACTER(LEN=40)              :: YFILETYPE40! MESONH file type
 CHARACTER(LEN=2)               :: YFILETYPE2 ! MESONH file type
 INTEGER, DIMENSION(3)  :: ITDATE
@@ -1653,7 +1653,7 @@ IMPLICIT NONE
 !
 !*      0.1   Declarations of arguments
 !
-CHARACTER(LEN=16),  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(OUT)   :: KYEAR    ! year
@@ -1668,7 +1668,7 @@ CHARACTER(LEN=100), INTENT(OUT)   :: HCOMMENT ! comment
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string
 !
-CHARACTER(LEN=16)              :: YRECFM     ! Name of the article to be written
+CHARACTER(LEN=LEN_HREC)              :: YRECFM     ! Name of the article to be written
 CHARACTER(LEN=40)              :: YFILETYPE40! MESONH file type
 CHARACTER(LEN=2)               :: YFILETYPE2 ! MESONH file type
 INTEGER, DIMENSION(3,KL1)  :: ITDATE
index 64af97f..e96bab6 100644 (file)
@@ -330,7 +330,7 @@ REAL, DIMENSION(:), ALLOCATABLE   :: ZYHAT_ll    !   Position y in the conformal
 REAL                         :: ZXHATM,ZYHATM    ! coordinates of mass point
 REAL                         :: ZLATORI, ZLONORI ! lat and lon of left-bottom point
 INTEGER                :: IGRID,ILENCH,IRESP  !   File
-CHARACTER (LEN=16)     :: YRECFM              ! management
+CHARACTER (LEN=LEN_HREC)     :: YRECFM              ! management
 CHARACTER (LEN=100)    :: YCOMMENT            ! variables
 CHARACTER (LEN=2)      :: YDIR                !
 INTEGER, DIMENSION(3)  :: ITDATE           ! date array
index 479fa8b..be24796 100644 (file)
@@ -213,7 +213,7 @@ REAL, DIMENSION(:,:,:), INTENT(OUT) :: PRHODJ    ! rhod J
 !*       0.2   declarations of local variables
 !
 INTEGER             :: IGRID,ILENCH,IRESP        !   File 
-CHARACTER (LEN=16)  :: YRECFM                    ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM                    ! management
 CHARACTER (LEN=100) :: YCOMMENT                  ! variables  
 CHARACTER  (LEN=2)  :: YDIR 
 INTEGER             :: ILUOUT                    ! Unit number for prints
index 001d821..41b3851 100644 (file)
@@ -137,7 +137,7 @@ REAL, DIMENSION(:),   ALLOCATABLE :: ZXHAT      ! = XXHAT(:)
 REAL, DIMENSION(:),   ALLOCATABLE :: ZYHAT      ! = XYHAT(:)
 !
 INTEGER             :: IGRID,ILENCH         !   File
-CHARACTER (LEN=16)  :: YRECFM               ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM               ! management
 CHARACTER (LEN=100) :: YCOMMENT             ! variables
 LOGICAL :: GFOUND     ! return code when searching namelist
 !
index a91a1d9..e6fe763 100644 (file)
@@ -259,7 +259,7 @@ INTEGER             :: IRESP        ! Return code of FM routines
 INTEGER             :: IGRID        ! C-grid indicator in LFIFM file 
 INTEGER             :: ILENCH       ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !------------------------------------------------------------------------
 
 !!! 1. Initialisation
index a0586ac..7e8fe73 100644 (file)
@@ -266,7 +266,7 @@ REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZRT1
 LOGICAL :: GUSERV
 !
 INTEGER             :: IGRID,ILENCH   !   File
-CHARACTER (LEN=16)  :: YRECFM         ! management
+CHARACTER (LEN=LEN_HREC)  :: YRECFM         ! management
 CHARACTER (LEN=100) :: YCOMMENT       ! variables
 CHARACTER (LEN=2)   :: YDIR
 !
index b07ae8d..f8716da 100644 (file)
@@ -268,7 +268,7 @@ INTEGER             :: IRESP        ! Return code of FM routines
 INTEGER             :: IGRID        ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH       ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 TYPE(LIST_ll), POINTER :: TZFIELDDISS_ll ! list of fields to exchange
 INTEGER                :: IINFO_ll       ! return code of parallel routine
index ba6694e..a1ed85f 100644 (file)
@@ -538,7 +538,7 @@ INTEGER             :: IRESP        ! Return code of FM routines
 INTEGER             :: IGRID        ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH       ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 REAL                :: ZL0          ! Max. Mixing Length in Blakadar formula
 REAL                :: ZALPHA       ! proportionnality constant between Dz/2 and 
 !                                   ! BL89 mixing length near the surface
index fe6d170..03a1fb8 100644 (file)
@@ -145,7 +145,7 @@ INTEGER             :: IRESP        ! Return code of FM routines
 INTEGER             :: IGRID        ! C-grid indicator in LFIFM file
 INTEGER             :: ILENCH       ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 !-------------------------------------------------------------------------------
 !
index 216f2f5..cacfdac 100644 (file)
@@ -244,7 +244,7 @@ INTEGER             :: IKB,IKE
 INTEGER             :: IKU                                   
 INTEGER             :: JSV          ! scalar loop counter
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 REAL, DIMENSION(SIZE(PUM,1),SIZE(PUM,2),SIZE(PUM,3))  :: GX_U_M_PUM
 REAL, DIMENSION(SIZE(PVM,1),SIZE(PVM,2),SIZE(PVM,3))  :: GY_V_M_PVM
index c60ad2b..e39d3ed 100644 (file)
@@ -192,7 +192,7 @@ INTEGER             :: IKB,IKE
 INTEGER             :: JSV          ! loop counter
 INTEGER             :: ISV          ! number of scalar var.
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 REAL, DIMENSION(SIZE(PDZZ,1),SIZE(PDZZ,2),1+JPVEXT:3+JPVEXT) :: ZCOEFF 
                                     ! coefficients for the uncentred gradient 
                                     ! computation near the ground
index 07f2117..af8c089 100644 (file)
@@ -210,7 +210,7 @@ INTEGER             :: IKB,IKE,IKU
                                     ! Index values for the Beginning and End
                                     ! mass points of the domain  
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 REAL, DIMENSION(SIZE(PDZZ,1),SIZE(PDZZ,2),1+JPVEXT:3+JPVEXT) :: ZCOEFF 
                                     ! coefficients for the uncentred gradient 
                                     ! computation near the ground
index c61b7e5..a66b679 100644 (file)
@@ -226,7 +226,7 @@ INTEGER             :: IKB,IKE,IKU
                                     ! Index values for the Beginning and End
                                     ! mass points of the domain  
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 REAL, DIMENSION(SIZE(PDZZ,1),SIZE(PDZZ,2),1+JPVEXT:3+JPVEXT) :: ZCOEFF 
                                     ! coefficients for the uncentred gradient 
                                     ! computation near the ground
index ead7858..9fea6b9 100644 (file)
@@ -219,7 +219,7 @@ INTEGER             :: IKB,IKE,IKU
                                     ! Index values for the Beginning and End
                                     ! mass points of the domain  
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 REAL, DIMENSION(SIZE(PUM,1),SIZE(PUM,2),SIZE(PUM,3))  :: GY_U_UV_PUM
 REAL, DIMENSION(SIZE(PVM,1),SIZE(PVM,2),SIZE(PVM,3))  :: GX_V_UV_PVM
index ef5ec34..57ce12d 100644 (file)
@@ -198,7 +198,7 @@ INTEGER             :: IKB,IKE,IKU
                                     ! mass points of the domain  
 INTEGER             :: JSV          ! scalar loop counter
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 REAL, DIMENSION(SIZE(PWM,1),SIZE(PWM,2),SIZE(PWM,3))  :: GX_W_UW_PWM
 !
index 2918dfc..c7da15c 100644 (file)
@@ -195,7 +195,7 @@ INTEGER             :: IKB,IKE,IKU
                                     ! mass points of the domain  
 INTEGER             :: JSV          ! scalar loop counter
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 REAL, DIMENSION(SIZE(PWM,1),SIZE(PWM,2),SIZE(PWM,3))  :: GY_W_VW_PWM
 !
index e4fb096..9b8df98 100644 (file)
@@ -487,7 +487,7 @@ INTEGER             :: IRESP        ! Return code of FM routines
 INTEGER             :: IGRID        ! C-grid indicator in LFIFM file 
 INTEGER             :: ILENCH       ! Length of comment string in LFIFM file
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 LOGICAL :: GUSERV    ! flag to use water vapor
 INTEGER :: IKB,IKE   ! index value for the Beginning
index 3224c54..92fcdd3 100644 (file)
@@ -404,7 +404,7 @@ INTEGER             :: IKT          ! array size in k direction
 INTEGER             :: IKTB,IKTE    ! start, end of k loops in physical domain
 INTEGER             :: JSV          ! scalar loop counter
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 REAL, DIMENSION(SIZE(PDZZ,1),SIZE(PDZZ,2),1) :: ZCOEFFLXU, &
                                     ZCOEFFLXV, ZUSLOPEM, ZVSLOPEM
                                     ! coefficients for the surface flux
index 35aef36..1675dee 100644 (file)
@@ -366,7 +366,7 @@ INTEGER             :: JSV          ! loop counters
 INTEGER             :: JK           ! loop
 INTEGER             :: ISV          ! number of scalar var.
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 REAL :: ZTIME1, ZTIME2
 
index e3f63e1..74ee521 100644 (file)
@@ -441,7 +441,7 @@ INTEGER             :: IKB,IKE      ! I index values for the Beginning and End
                                     ! mass points of the domain in the 3 direct.
 INTEGER             :: I1,I2        ! For ZCOEFF allocation
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 REAL, DIMENSION(:,:,:),ALLOCATABLE  :: ZCOEFF
                                     ! coefficients for the uncentred gradient 
                                     ! computation near the ground
index 73c97ba..b83254a 100644 (file)
@@ -470,7 +470,7 @@ INTEGER             :: IKB,IKE      ! I index values for the Beginning and End
 INTEGER             :: IKT          ! array size in k direction
 INTEGER             :: IKTB,IKTE    ! start, end of k loops in physical domain 
 CHARACTER (LEN=100) :: YCOMMENT     ! comment string in LFIFM file
-CHARACTER (LEN=16)  :: YRECFM       ! Name of the desired field in LFIFM file
+CHARACTER (LEN=LEN_HREC)  :: YRECFM       ! Name of the desired field in LFIFM file
 !
 REAL :: ZTIME1, ZTIME2
 !
index 29fbd75..c18d156 100644 (file)
@@ -226,7 +226,7 @@ REAL,DIMENSION(SIZE(PJ,1),SIZE(PJ,2),SIZE(PJ,3))   :: ZRHOD,ZSUMRT
 !
 CHARACTER(LEN=100) :: YCOMMENT
 INTEGER           :: ILENCH         ! ILENCH : length of comment string 
-CHARACTER(LEN=16)  :: YRECFM
+CHARACTER(LEN=LEN_HREC)  :: YRECFM
 INTEGER      :: IINFO_ll
 TYPE(LIST_ll), POINTER :: TZFIELDS_ll => NULL()  ! list of fields to exchange
 !
index 37986ae..b5ed03b 100644 (file)
@@ -105,7 +105,7 @@ INTEGER            :: IRESP         ! IRESP  : return-code for fmwrit
 INTEGER            :: IGRID         ! IGRID : grid indicator
 CHARACTER (LEN=2)  :: YDIR          ! Type of the data field
 INTEGER            :: ILENCH        ! ILENCH : length of comment string
-CHARACTER(LEN=16)  :: 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
 !
 REAL               :: ZLAT          ! latitude of the balloon
index a50b48f..a606eb0 100644 (file)
@@ -165,7 +165,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string 
 !
-CHARACTER(LEN=16) :: YRECFM         ! Name of the article to be written
+CHARACTER(LEN=LEN_HREC) :: YRECFM         ! Name of the article to be written
 CHARACTER(LEN=20) :: YCOMMENT       ! Comment string
 INTEGER           :: JT,JPROC,JMASK
 !
index d4e9280..59e046e 100644 (file)
@@ -112,7 +112,7 @@ REAL,DIMENSION(:,:,:),OPTIONAL  :: PTRAJZ
 !              ---------------
 
 !
-CHARACTER(LEN=16) :: YRECFM
+CHARACTER(LEN=LEN_HREC) :: YRECFM
 CHARACTER(LEN=LEN(HFILEDIA)+4) :: YFILEDIA
 CHARACTER(LEN=100) :: YCOMMENT
 CHARACTER(LEN=3)  :: YJ
index 5ba90ee..21c1f0d 100644 (file)
@@ -85,7 +85,7 @@ INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string
 INTEGER           :: JDUMMY         ! loop counter
 !
-CHARACTER(LEN=16) :: 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=20 ):: YSTRING20      ! string
 CHARACTER(LEN=3  ):: YSTRING03      ! string
index 906d3aa..2a6e227 100644 (file)
@@ -126,7 +126,7 @@ INTEGER            :: IRESP         ! IRESP  : return-code for fmwrit
 INTEGER            :: IGRID         ! IGRID : grid indicator
 CHARACTER (LEN=2)  :: YDIR          ! Type of the data field
 INTEGER            :: ILENCH        ! ILENCH : length of comment string 
-CHARACTER(LEN=16)  :: 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
 !
 INTEGER            :: IRR           ! Index for moist variables
index 0f3b963..ac42da7 100644 (file)
@@ -245,7 +245,7 @@ INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string 
 !
 CHARACTER(LEN=28) :: YFMFILE        ! Temporary variable to store FM-file name
-CHARACTER(LEN=16) :: 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=2)  :: YSTORAGE_TYPE  ! type of the new DIAG file ('DI')
index d4ab676..959e42f 100644 (file)
@@ -162,7 +162,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string 
 !
-CHARACTER(LEN=16) :: 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
 !
 INTEGER           :: IIU,IJU,IKU,IIB,IJB,IKB,IIE,IJE,IKE ! Arrays bounds
index 3f59602..13b69e9 100644 (file)
@@ -122,7 +122,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string
 !
-CHARACTER(LEN=16) :: 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
 !
 LOGICAL                :: GPACK
index 38918f6..db3672c 100644 (file)
@@ -270,7 +270,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string 
 !
-CHARACTER(LEN=16) :: 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=2) :: YDIR           ! Type of the data field
 !
@@ -297,7 +297,7 @@ INTEGER :: IMI ! Current model index
 !
 INTEGER           :: ICH_NBR        ! to write number and names of scalar 
 INTEGER,DIMENSION(:),ALLOCATABLE :: ICH_NAMES !(chem+aero+dust) variables
-CHARACTER(LEN=16),DIMENSION(:),ALLOCATABLE :: YDSTNAMES,YCHNAMES, YSLTNAMES
+CHARACTER(LEN=LEN_HREC),DIMENSION(:),ALLOCATABLE :: YDSTNAMES,YCHNAMES, YSLTNAMES
 INTEGER           :: ILREC,ILENG    !in NSV.DIM and NSV.TITRE
 INTEGER           :: INFO_ll
 INTEGER :: IKRAD
index 446fa2d..d1c6d16 100644 (file)
@@ -173,7 +173,7 @@ INTEGER           :: IRESP          ! IRESP  : return-code if a problem appears
 INTEGER           :: IGRID          ! IGRID : grid indicator
 INTEGER           :: ILENCH         ! ILENCH : length of comment string 
 !
-CHARACTER(LEN=16) :: 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=2) :: YDIR           ! Type of the data field
 !
@@ -208,7 +208,7 @@ INTEGER :: KSPLT !
 !
 INTEGER           :: ICH_NBR        ! to write number and names of scalar 
 INTEGER,DIMENSION(:),ALLOCATABLE :: ICH_NAMES !(chem+aero+dust) variables
-CHARACTER(LEN=16),DIMENSION(:),ALLOCATABLE :: YDSTNAMES,YCHNAMES, YSLTNAMES
+CHARACTER(LEN=LEN_HREC),DIMENSION(:),ALLOCATABLE :: YDSTNAMES,YCHNAMES, YSLTNAMES
 INTEGER           :: ILREC,ILENG    !in NSV.DIM and NSV.TITRE
 INTEGER           :: INFO_ll
 !-------------------------------------------------------------------------------
index c184d33..a4da9dd 100644 (file)
@@ -77,7 +77,7 @@ CHARACTER(LEN=28),   INTENT(IN)  :: HFILE ! name of the input/output file
 !
 !
 INTEGER           :: IRESP    ! return code for I/O
-CHARACTER(LEN=16) :: YRECFM   ! name of record
+CHARACTER(LEN=LEN_HREC) :: YRECFM   ! name of record
 INTEGER           :: IGRID    ! grid location
 INTEGER           :: ILENCH   ! length of comment string
 CHARACTER(LEN=100):: YCOMMENT ! comment string
index a3898c3..3b9db8b 100644 (file)
@@ -96,7 +96,7 @@ INTEGER :: IINFO_ll
 INTEGER :: ININAR
 INTEGER :: IGRID
 INTEGER :: ILENCH
-CHARACTER (LEN=16) :: YRECFM   
+CHARACTER (LEN=LEN_HREC) :: YRECFM   
 CHARACTER(LEN=100) :: YCOMMENT
 CHARACTER(LEN=28)  :: YZOOMFILE             ! name of the output file
 CHARACTER(LEN=2)   :: YZOOMNBR
index da0fe85..1550a90 100644 (file)
@@ -90,7 +90,7 @@ INTEGER :: IIU        ! number of points in X direction
 INTEGER :: IJU        ! number of points in Y direction
 !
 INTEGER           :: IRESP    ! return code for I/O
-CHARACTER(LEN=16) :: YRECFM   ! name of record
+CHARACTER(LEN=LEN_HREC) :: YRECFM   ! name of record
 INTEGER           :: IGRID    ! grid location
 INTEGER           :: ILENCH   ! length of comment string
 CHARACTER(LEN=100):: YCOMMENT ! comment string