maint: globalized size of the VAR_TYPE string

Now one can initialize the size of the var_type to VAR_TYPE_LENGTH

Signed-off-by: Nick Papior <[email protected]>

src/dictionary_pp.F90

@@ -23,7 +23,7 @@ module dictionary
   ! We could consider changing this to a variable size string
   ! However, that will increase the dependencies and will most likely not yield
   ! a better interface.
-  !> Maximum character length of the keys in the dictionary, no 
+  !> Maximum character length of the keys in the dictionary, no
   !! index/key can be longer than this.
   integer, parameter, public :: DICT_KEY_LENGTH = 48
 
@@ -957,7 +957,7 @@ end function dict_kvp_var
   function dict_key_which(this,key) result(t)
     type(dict), intent(in) :: this
     character(len=*), optional, intent(in) :: key
-    character(len=2) :: t
+    character(len=VAR_TYPE_LENGTH) :: t
     type(dict) :: ld
     integer :: hash, lhash
 

src/variable_pp.F90

@@ -41,7 +41,12 @@ module variable
   ! To create a constant transfer data-type of the 
   ! pointer methods
   character(len=1) :: local_enc_type(1)
-
+
+  ! Internal variable to hold the size of the "type" switch
+  !> Maximum character length of the type specifier in the variable, no
+  !! unique identifier may be longer than this.
+  integer, parameter, public :: VAR_TYPE_LENGTH = 4
+
   type :: var
      !! Container for _any_ fortran data-type, intrinsically handles all
      !! from fortran and any external type may be added via external routines.
@@ -51,14 +56,14 @@ module variable
      !! This enables one to retrieve the pointer position later and thus enables
      !! pointer assignments and easy copying of data.
 
-     character(len=4) :: t = '    '
+     character(len=VAR_TYPE_LENGTH) :: t = '    '
      ! The encoding placement of all data
      character(len=1), dimension(:), allocatable :: enc
   end type var
   public :: var
 
   interface which
-     !! Type of content stored in the variable (`character(len=4)`)
+     !! Type of content stored in the variable (`character(len=VAR_TYPE_LENGTH)`)
      module procedure which_
   end interface
   public :: which
@@ -158,7 +163,7 @@ end subroutine print_
 
   elemental function which_(this) result(t)
     type(var), intent(in) :: this
-    character(len=4) :: t
+    character(len=VAR_TYPE_LENGTH) :: t
     t = this%t
   end function which_