Fix nt_zbgc_frac (#300)

CICE-Consortium · Feb 19, 2020 · 877c679 · 877c679
1 parent 003b48a
commit 877c679
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/configuration/driver/icedrv_init_column.F90 b/configuration/driver/icedrv_init_column.F90
@@ -1311,6 +1311,7 @@ subroutine init_zbgc
       nt_bgc_DMS    = 0
       nt_bgc_PON    = 0
       nt_bgc_hum    = 0
+      nt_zbgc_frac  = 0
 
       !-----------------------------------------------------------------
       ! Define array parameters
@@ -1700,7 +1701,6 @@ subroutine init_zbgc
          endif      ! tr_zaero
 
 !echmod keep trcr indices etc here but move zbgc_frac_init, zbgc_init_frac, tau_ret, tau_rel to icepack
-         nt_zbgc_frac = 0
          if (nbtrcr > 0) then
             nt_zbgc_frac = ntrcr + 1
             ntrcr = ntrcr + nbtrcr