Change logic used before writing buoyancy_freq

In an attempt to suppress a "may be used unitialized" error, I made sure that
all uses of buoyancy_cntr occur instead a "if (present(buoyancy_cntr))"
statement.