-
Notifications
You must be signed in to change notification settings - Fork 25
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Remain with cyanobacteria only in euphotic zone. #396
Conversation
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
@jmaerz - looks fine to me
hamocc/mo_cyano.F90
Outdated
@@ -75,7 +75,7 @@ subroutine cyano(kpie,kpje,kpke,kbnd,pddpo,omask,ptho) | |||
do j=1,kpje | |||
do i=1,kpie | |||
if (omask(i,j) > 0.5) then | |||
do k=1,merge(kwrbioz(i,j),kmle(i,j),leuphotic_cya) ! if leuphotic_cya=.true., do bluefix only in euphotic zone | |||
do k=1,kwrbioz(i,j) ! if leuphotic_cya=.true., do bluefix only in euphotic zone |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
do k=1,kwrbioz(i,j) ! if leuphotic_cya=.true., do bluefix only in euphotic zone | |
do k=1,kwrbioz(i,j) ! do bluefix only in euphotic zone |
The comment on this line can also be changed (or removed)
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Recognized it, when you approved :-) - sorry for that. Done.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Thanks you, looks good to me!
closes #395