Skip to content

Commit 6a8af9f

Browse files
authored
Merge pull request #27 from Hallberg-NOAA/v_sa_p_bugfix
Fix v_sa_p bug in gsw_specvol_second_derivatives
2 parents 4206c85 + c31ec7f commit 6a8af9f

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

toolbox/gsw_specvol_second_derivatives.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -108,7 +108,7 @@ elemental subroutine gsw_specvol_second_derivatives (sa, ct, p, v_sa_sa, &
108108
+ b122*xs + b032*ys))) + z*(3.0_r8*(b003 + b103*xs + b013*ys) &
109109
+ 4.0_r8*b004*z))
110110

111-
v_sa_p = 1e-8_r8*0.5_r8*gsw_sfac*v_sa_p_part
111+
v_sa_p = 1e-8_r8*0.5_r8*gsw_sfac*v_sa_p_part/xs
112112

113113
end if
114114

0 commit comments

Comments
 (0)