From ef57a9b0e24ae046b457129d96718dff975a4e3f Mon Sep 17 00:00:00 2001 From: Hakase Hayashida Date: Fri, 31 May 2024 14:19:47 +0900 Subject: [PATCH] Bug fix for ice-to-ocean BGC flux as discussed in https://github.com/COSIMA/access-om2/issues/282 --- src/mom5/ocean_csiro_bgc/csiro_bgc.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/mom5/ocean_csiro_bgc/csiro_bgc.F90 b/src/mom5/ocean_csiro_bgc/csiro_bgc.F90 index ef88d8f5d..b0c305da6 100755 --- a/src/mom5/ocean_csiro_bgc/csiro_bgc.F90 +++ b/src/mom5/ocean_csiro_bgc/csiro_bgc.F90 @@ -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 @@ -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