Skip to content

Commit

Permalink
Merge pull request #17 from ACCESS-NRI/upstream-master
Browse files Browse the repository at this point in the history
WOMBAT sea-ice BGC coupling bug fix
  • Loading branch information
CodeGat authored Jun 26, 2024
2 parents baaf7ed + 59e0aad commit f566f2d
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/mom5/ocean_csiro_bgc/csiro_bgc.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1349,7 +1349,7 @@ subroutine csiro_bgc_sbc(isc, iec, jsc, jec, isd, ied, jsd, jed, &
do n = 1, instances !{
do j = jsc, jec !{
do i = isc, iec !{
t_prog(ind_phy)%stf(i,j) = iof_alg(i,j)
t_prog(ind_phy)%stf(i,j) = rho0 * iof_alg(i,j)
enddo !} i
enddo !} j
enddo !} n
Expand All @@ -1359,7 +1359,7 @@ subroutine csiro_bgc_sbc(isc, iec, jsc, jec, isd, ied, jsd, jed, &
do n = 1, instances !{
do j = jsc, jec !{
do i = isc, iec !{
t_prog(ind_no3)%stf(i,j) = iof_nit(i,j)
t_prog(ind_no3)%stf(i,j) = rho0 * iof_nit(i,j)
enddo !} i
enddo !} j
enddo !} n
Expand Down

0 comments on commit f566f2d

Please sign in to comment.