Merge pull request #18 from nikizadehgfdl/trailing_i_bugfix

There is a trailing i that breaks compile
NOAA-GFDL · Jul 30, 2022 · 3959c8f · 3959c8f
2 parents d6cf11c + 9af44eb
commit 3959c8f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/generic_tracers/generic_COBALT.F90 b/generic_tracers/generic_COBALT.F90
@@ -8053,7 +8053,7 @@ subroutine generic_COBALT_update_from_source(tracer_list,Temp,Salt,rho_dzt,dzt,h
              ! fpoc_bottom in mmoles C m-2 day-1 for burial relationship
              fpoc_btm = cobalt%f_ndet_btf(i,j,1)*cobalt%c_2_n*sperd*1000.0
              cobalt%frac_burial(i,j) = 0.013 + 0.53*fpoc_btm**2.0/((3.5+fpoc_btm)**2.0) * &
-                  cobalt%zt(i,j,k) / (cobalt%z_burial + cobalt%zt(i,j,k))i
+                  cobalt%zt(i,j,k) / (cobalt%z_burial + cobalt%zt(i,j,k))
 
              !increase burial below 500m by 4 fold
              if (cobalt%zt(i,j,k) .gt. 500.0) then !{