From 8088c3c5ae7c0f391fa67ddf1367727eaec5ddbd Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Thu, 3 Sep 2020 13:44:54 -0600 Subject: [PATCH] Add missing 'OMP END PARALLEL DO' statements These seem to have been missing for a while (forever?). --- src/main/clm_initializeMod.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/main/clm_initializeMod.F90 b/src/main/clm_initializeMod.F90 index 771b88e5da..912bbb293b 100644 --- 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