From a93100443e8090c0f9ec34630b2f7873e65bd728 Mon Sep 17 00:00:00 2001 From: Karsten Bolding Date: Thu, 2 May 2024 09:10:05 +0200 Subject: [PATCH] no call to fabm_get_light_extinction() --- src/fabm/gotm_fabm.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fabm/gotm_fabm.F90 b/src/fabm/gotm_fabm.F90 index 06b9d9a1..a99b0bc0 100644 --- a/src/fabm/gotm_fabm.F90 +++ b/src/fabm/gotm_fabm.F90 @@ -1256,7 +1256,7 @@ subroutine do_gotm_fabm(nlev,itime) if (bioshade_feedback) then bioext = 0 - call fabm_get_light_extinction(1, nlev, localexts(1:nlev)) +!KB call fabm_get_light_extinction(1, nlev, localexts(1:nlev)) do i = nlev, 1, -1 bioext = bioext + localexts(i) * curh(i) bioshade(i) = exp(-bioext)