Merge pull request #485 from billsacks/declare_cnt

Declare cnt variable needed with ESMF_AWARE_THREADING
ESCOMP · Jul 25, 2024 · 10ffcc8 · 10ffcc8
2 parents ce9cfe2 + df41c29
commit 10ffcc8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/cesm/driver/esm.F90 b/cesm/driver/esm.F90
@@ -877,6 +877,9 @@ subroutine esm_init_pelayout(driver, maxthreads, rc)
     character(len=5)               :: inst_suffix
     character(CL)                  :: cvalue
     logical                        :: found_comp
+#ifdef ESMF_AWARE_THREADING
+    integer                        :: cnt
+#endif
     integer :: rank, nprocs, ierr
     character(len=*), parameter    :: subname = "(esm_pelayout.F90:esm_init_pelayout)"
     !---------------------------------------