Merge pull request #380 from hakaseh/post_cycle4

bug fix for wdet100; closes #379
mom-ocean · Mar 23, 2023 · d505501 · d505501
2 parents 5126b54 + e442988
commit d505501
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/mom5/ocean_csiro_bgc/csiro_bgc.F90 b/src/mom5/ocean_csiro_bgc/csiro_bgc.F90
@@ -1978,7 +1978,7 @@ subroutine csiro_bgc_source(isc, iec, jsc, jec, isd, ied, jsd, jed, T_prog, grid
 
 !det export at 100 m
 if (id_wdet100 .gt. 0) then
-  wdet100(:,:) = wdetbio(isc:iec,jsc:jec)*t_prog(ind_det)%field(isc:iec,jsc:jec,minloc(grid%zt(:)-100,dim=1),time%taum1)
+  wdet100(:,:) = wdetbio(isc:iec,jsc:jec)*t_prog(ind_det)%field(isc:iec,jsc:jec,minloc(abs(grid%zt(:)-100),dim=1),time%taum1)
   used = send_data(id_wdet100, wdet100(isc:iec,jsc:jec),          &
        time%model_time, rmask = grid%tmask(isc:iec,jsc:jec,1))
 endif