From a6df9cd0f7064556c3b21d59e9458bbd2d4a99ef Mon Sep 17 00:00:00 2001 From: Ming Chen Date: Tue, 18 Nov 2025 10:38:25 -0600 Subject: [PATCH] fix MPI_WTIME interface warning in debug build using mpi_f08 --- model/src/wav_wrapper_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/model/src/wav_wrapper_mod.F90 b/model/src/wav_wrapper_mod.F90 index 80137bcf8b..de8901b614 100644 --- a/model/src/wav_wrapper_mod.F90 +++ b/model/src/wav_wrapper_mod.F90 @@ -11,6 +11,7 @@ module wav_wrapper_mod use wav_kind_mod , only : r8 => shr_kind_r8, r4 => shr_kind_r4, i4 => shr_kind_i4 use wav_kind_mod , only : CL => shr_kind_cl, CS => shr_kind_cs + use mpi_f08 , only : MPI_Wtime implicit none @@ -49,7 +50,6 @@ subroutine ufs_settimer(timevalue) !> @date 01-08-2024 real(r8), intent(inout) :: timevalue - real(r8) :: MPI_Wtime timevalue = MPI_Wtime() end subroutine ufs_settimer @@ -70,7 +70,7 @@ subroutine ufs_logtimer(nunit,times,tod,string,runtimelog,wtime0) character(len=*), intent(in) :: string logical, intent(in) :: runtimelog real(r8), intent(in) :: wtime0 - real(r8) :: MPI_Wtime, timevalue + real(r8) :: timevalue if (.not. runtimelog) return if (wtime0 > 0.) then timevalue = MPI_Wtime()-wtime0