Merge pull request mom-ocean#386 from hakaseh/730f0bf5

Bug fix regarding COSIMA/access-om2#282
ACCESS-NRI · Jun 7, 2024 · 59e0aad · 59e0aad
2 parents d7ba13a + ef57a9b
commit 59e0aad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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