Skip to content

GitLab

G
getm
Commit ba9b62f0 authored by Knut's avatar Knut
Browse files
Options

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

parent fe4eb016
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 0 deletions
src/3d/variables_3d.F90
View file @ ba9b62f0
......@@ -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