Merge pull request #17 from ACCESS-NRI/upstream-master

WOMBAT sea-ice BGC coupling bug fix

Author: CodeGat

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