diff --git a/src/mom5/ocean_csiro_bgc/csiro_bgc.F90 b/src/mom5/ocean_csiro_bgc/csiro_bgc.F90 index 5130e57b9..9ed908689 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