diff --git a/DynCore_GridCompMod.F90 b/DynCore_GridCompMod.F90 index 8f13c39..a458cf7 100644 --- a/DynCore_GridCompMod.F90 +++ b/DynCore_GridCompMod.F90 @@ -2457,7 +2457,6 @@ subroutine Run(gc, import, export, clock, rc) !call MAPL_TimerOn(MAPL,"-DYN_CORE") t1 = MPI_Wtime(status) call DynRun (GC, STATE, EXPORT, CLOCK, internal, import, RC=STATUS) - !call DynRun (GC, STATE, EXPORT, CLOCK, internal, RC=STATUS) VERIFY_(STATUS) t2 = MPI_Wtime(status) dyn_run_timer = t2-t1 diff --git a/FV_StateMod.F90 b/FV_StateMod.F90 index 9abe85d..a331997 100644 --- a/FV_StateMod.F90 +++ b/FV_StateMod.F90 @@ -1283,7 +1283,6 @@ subroutine FV_InitState (STATE, CLOCK, INTERNAL, IMPORT, GC, RC) end subroutine FV_InitState subroutine FV_Run (GC, STATE, EXPORT, CLOCK, internal, import, RC) -!subroutine FV_Run (GC, STATE, EXPORT, CLOCK, internal, RC) type (ESMF_GridComp) , intent(INOUT) :: GC type (T_FVDYCORE_STATE),pointer :: STATE