Merge branch 'master' of https://github.com/AquaticEcoDynamics/libaed…

…-water
AquaticEcoDynamics · Apr 6, 2022 · 0a933ab · 0a933ab
2 parents b7929a6 + 59ec451
commit 0a933ab
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/aed_phytoplankton.F90 b/src/aed_phytoplankton.F90
@@ -169,6 +169,7 @@ INTEGER FUNCTION load_csv(dbase,pd)
 
  CALL copy_name(values(1), name)
  SELECT CASE (name)
+ CASE ('p_initial') ; pd(dcol)%p_initial = extract_double(values(ccol))
  CASE ('p0') ; pd(dcol)%p0 = extract_double(values(ccol))
  CASE ('w_p') ; pd(dcol)%w_p = extract_double(values(ccol))
  CASE ('Xcc') ; pd(dcol)%Xcc = extract_double(values(ccol))