Commit ba9b62f0 authored by Knut's avatar Knut

initialize g1,g2 <> 0 to avoid division by zero in gotm_fabm::light() for calc_temp=F

parent fe4eb016
......@@ -213,6 +213,10 @@
idpdy=_ZERO_
#endif
! must be nonzero for gotm_fabm in case of calc_temp=F
g1 = -9999*_ONE_
g2 = -9999*_ONE_
#ifdef DEBUG
write(debug,*) 'Leaving init_variables_3d()'
write(debug,*)
......
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