no call to fabm_get_light_extinction()

gotm-model · May 2, 2024 · a931004 · a931004
1 parent 40f9deb
commit a931004
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)