Read zoo.csv doubles as int

Fixes issue #68 where non-integer numbers not getting parsed
AquaticEcoDynamics · Apr 3, 2024 · 4fe1b27 · 4fe1b27
1 parent d9b5915
commit 4fe1b27
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/aed_zooplankton.F90 b/src/aed_zooplankton.F90
@@ -151,14 +151,14 @@ INTEGER FUNCTION load_csv(dbase, zoop_param, dbsize)
  CASE ('ffecal_zoo') ; zoop_param(dcol)%ffecal_zoo = extract_double(values(ccol))
  CASE ('fexcr_zoo') ; zoop_param(dcol)%fexcr_zoo = extract_double(values(ccol))
  CASE ('ffecal_sed') ; zoop_param(dcol)%ffecal_sed = extract_double(values(ccol))
- CASE ('theta_resp_zoo') ; zoop_param(dcol)%theta_resp_zoo = extract_integer(values(ccol))
- CASE ('Tstd_zoo') ; zoop_param(dcol)%Tstd_zoo = extract_integer(values(ccol))
- CASE ('Topt_zoo') ; zoop_param(dcol)%Topt_zoo = extract_integer(values(ccol))
- CASE ('Tmax_zoo') ; zoop_param(dcol)%Tmax_zoo = extract_integer(values(ccol))
+ CASE ('theta_resp_zoo') ; zoop_param(dcol)%theta_resp_zoo = extract_double(values(ccol))
+ CASE ('Tstd_zoo') ; zoop_param(dcol)%Tstd_zoo = extract_double(values(ccol))
+ CASE ('Topt_zoo') ; zoop_param(dcol)%Topt_zoo = extract_double(values(ccol))
+ CASE ('Tmax_zoo') ; zoop_param(dcol)%Tmax_zoo = extract_double(values(ccol))
  CASE ('saltfunc_zoo') ; zoop_param(dcol)%saltfunc_zoo = extract_integer(values(ccol))
- CASE ('Smin_zoo') ; zoop_param(dcol)%Smin_zoo = extract_integer(values(ccol))
- CASE ('Smax_zoo') ; zoop_param(dcol)%Smax_zoo = extract_integer(values(ccol))
- CASE ('Sint_zoo') ; zoop_param(dcol)%Sint_zoo = extract_integer(values(ccol))
+ CASE ('Smin_zoo') ; zoop_param(dcol)%Smin_zoo = extract_double(values(ccol))
+ CASE ('Smax_zoo') ; zoop_param(dcol)%Smax_zoo = extract_double(values(ccol))
+ CASE ('Sint_zoo') ; zoop_param(dcol)%Sint_zoo = extract_double(values(ccol))
  CASE ('INC_zoo') ; zoop_param(dcol)%INC_zoo = extract_double(values(ccol))
  CASE ('IPC_zoo') ; zoop_param(dcol)%IPC_zoo = extract_double(values(ccol))
  CASE ('DOmin_zoo') ; zoop_param(dcol)%DOmin_zoo = extract_double(values(ccol))