[WIP] JSON (or XML) based parameters

parameter_files/TestParsing/TestJSON.F90

@@ -0,0 +1,43 @@
+program TestJSON
+
+  use FatesConstantsMod, only : r8 => fates_r8
+  use JSONParameterUtilsMod
+  implicit none
+
+  integer :: arg_count   ! Number of arguments provided
+  character(len=:),allocatable :: filename
+
+  integer :: filename_len
+  integer :: file_unit = 18
+
+  type(params_type) :: pstruct
+
+  arg_count = command_argument_count()
+  if (arg_count < 1) then
+     write(*,*) 'ERROR: Missing required argument.'
+     write(*,*) 'Usage: ./program_name <input_filename>'
+     stop  ! Stop if the filename argument is not provided
+  end if
+
+  ! Get the length of the first argument to correctly allocate FILENAME
+  call get_command_argument(1, length=filename_len)
+  allocate(character(len=filename_len) :: filename)
+
+  ! Read the first command line argument (index 1) into FILENAME
+  call get_command_argument(1, value=filename)
+
+  call ReadJSON(filename,file_unit,pstruct)
+
+  ! Assert some reads
+
+  ! Check the character fields on pft names
+
+  !vcmax25top = [50. 62. 39. 61. 58. 58. 62. 54. 54. 38. 54. 86. 78. 78.
+
+
+
+
+
+  deallocate(filename)
+
+end program TestJSON

parameter_files/TestParsing/bld/README

@@ -0,0 +1 @@
+hold folder

parameter_files/TestParsing/build_testjson.sh

@@ -0,0 +1,25 @@
+#!/bin/bash
+
+# Path to FATES src
+
+FC='gfortran'
+
+#F_OPTS="-fPIC -O3 -llapack"
+F_OPTS="-g -fPIC"
+F_OBJ_OPTS="-shared"
+
+FATES_PATH='../..'
+
+#F_OPTS="-fPIC -O0 -g -ffpe-trap=zero,overflow,underflow -fbacktrace -fbounds-check -Wall"
+
+MOD_FLAG="-J"
+
+rm -f bld/*.o
+rm -f bld/*.so
+rm -f bld/*.mod
+rm -f bld/*.a
+
+# Build dgesv from lapack
+${FC} ${F_OPTS} -c -I bld/ -J./bld/ -o bld/libFatesConstantsMod.so ${FATES_PATH}/main/FatesConstantsMod.F90
+${FC} ${F_OPTS} -c -I bld/ -J./bld/ -o bld/libJSONParameterUtilsMod.so ${FATES_PATH}/main/JSONParameterUtilsMod.F90
+${FC} ${F_OPTS} -I bld/ -J./bld/ -L./bld/ -lFatesConstantsMod -lJSONParameterUtilsMod -o test_json TestJSON.F90