Commit 9d5533a6 authored by Jorn Bruggeman's avatar Jorn Bruggeman
Browse files

python driver: call get_light_extinction, get_light from get_rates

parent b5be77e7
......@@ -417,7 +417,10 @@
real(c_double),target,intent(in) :: pelagic_rates_(*)
real(c_double),pointer :: pelagic_rates(:)
real(rk) :: ext
call fabm_get_light_extinction(model,ext)
call fabm_get_light(model)
call c_f_pointer(c_loc(pelagic_rates_),pelagic_rates, &
(/size(model%state_variables)+size(model%surface_state_variables)+size(model%bottom_state_variables)/))
pelagic_rates = 0.0_rk
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment