Add missing 'OMP END PARALLEL DO' statements

These seem to have been missing for a while (forever?).
billsacks · Sep 3, 2020 · 8088c3c · 8088c3c
1 parent acf0984
commit 8088c3c
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/main/clm_initializeMod.F90 b/src/main/clm_initializeMod.F90
@@ -497,6 +497,7 @@ subroutine initialize2( )
             ! reset_lake_baselines is irrelevant since reset_all_baselines is true
             reset_lake_baselines = .false.)
     end do
+    !$OMP END PARALLEL DO
 
     ! ------------------------------------------------------------------------
     ! Initialize modules (after time-manager initialization in most cases)
@@ -663,6 +664,7 @@ subroutine initialize2( )
             reset_all_baselines = reset_dynbal_baselines_all_columns, &
             reset_lake_baselines = reset_dynbal_baselines_lake_columns)
     end do
+    !$OMP END PARALLEL DO
 
     ! ------------------------------------------------------------------------
     ! Initialize nitrogen deposition