Fix threading problem in init_bgc

DeniseWorthen · Apr 7, 2024 · f58aa9f · f58aa9f
1 parent 5a56c38
commit f58aa9f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cicecore/shared/ice_init_column.F90 b/cicecore/shared/ice_init_column.F90
@@ -829,7 +829,7 @@ subroutine init_bgc()
 
       endif     ! .not. restart
 
-      !$OMP PARALLEL DO PRIVATE(iblk,i,j,n,ilo,ihi,jlo,jhi,this_block)
+      !$OMP PARALLEL DO PRIVATE(iblk,i,j,k,n,ilo,ihi,jlo,jhi,this_block)
       do iblk = 1, nblocks
 
          this_block = get_block(blocks_ice(iblk),iblk)