We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent c1a5eef commit 459f937Copy full SHA for 459f937
star/private/rotation_mix_info.f90
@@ -589,10 +589,8 @@ subroutine setup(ierr)
589
Hj(1) = Hj(2); Hj(nz) = Hj(nz-1)
590
591
do i = 1, nz
592
- dlnRho_dlnP = s% grad_density(i)
593
- dlnT_dlnP = s% grad_temperature(i)
594
- N2(i) = -grav(i)*(1/gamma1(i) - dlnRho_dlnP)/scale_height(i)
595
- N2_mu(i) = -grav(i)/scale_height(i)*(1/chiRho(i) - delta(i)*dlnT_dlnP - dlnRho_dlnP)
+ N2(i) = s%brunt_N2(i)
+ N2_mu(i) = s%brunt_N2_composition_term(i)
596
end do
597
598
do k=1,nz
0 commit comments