From 5196717e41dfb1a0bf40c47c74fae63c62a6b833 Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Thu, 26 Mar 2020 15:03:35 -0700 Subject: [PATCH] remove temp writes to iulog in clmfates_interface --- src/utils/clmfates_interfaceMod.F90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90 index e20dfd25e5..7b7046f681 100644 --- a/src/utils/clmfates_interfaceMod.F90 +++ b/src/utils/clmfates_interfaceMod.F90 @@ -2066,9 +2066,6 @@ subroutine init_history_io(this,bounds_proc) dk_index = this%fates_hist%hvars(ivar)%dim_kinds_index ioname = trim(this%fates_hist%dim_kinds(dk_index)%name) - write(iulog,*) 'attempt ioname: ', ioname - write(iulog,*) 'dk_index: ', dk_index - select case(trim(ioname)) case(patch_r8) call hist_addfld1d(fname=trim(vname),units=trim(vunits), & @@ -2118,7 +2115,6 @@ subroutine init_history_io(this,bounds_proc) end select end associate - write(iulog,*)'success: ', ioname end do end subroutine init_history_io