From 76ee863f199ec30c08736e20cb23f0bb05dc19a0 Mon Sep 17 00:00:00 2001 From: Weiyuan Jiang Date: Fri, 31 May 2024 09:14:17 -0400 Subject: [PATCH] rm debugging print statement --- CHANGELOG.md | 2 ++ generic/OpenMP_Support.F90 | 3 +-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 7a355c1f4648..0f56461b43f6 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -15,6 +15,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Removed +- remove excessive print statement + ### Deprecated ## [2.46.1] - 2024-05-10 diff --git a/generic/OpenMP_Support.F90 b/generic/OpenMP_Support.F90 index c2742a6c9a6c..9cdf0a3ac1c8 100644 --- a/generic/OpenMP_Support.F90 +++ b/generic/OpenMP_Support.F90 @@ -537,8 +537,7 @@ function make_subgridcomps(GridComp, run_entry_points, num_grids, unusable, rc) call ESMF_GridCompGet(GridComp, config=CF, name=comp_name, _RC) call ESMF_InternalStateGet(GridComp, labelList=labels, _RC) - if(myPET==0) print*,__FILE__,__LINE__, 'internal states labels : <',trim(comp_name), (trim(labels(i)),i=1,size(labels)), '>' - print*,__FILE__,__LINE__, 'splitting component: <',trim(comp_name),'>' + do i = 1, num_grids associate (gc => subgridcomps(i) ) gc = ESMF_GridCompCreate(name=trim(comp_name), config=CF, petlist=[myPet], &