From b475ad468215f9922086517feaf82375fe6e219a Mon Sep 17 00:00:00 2001 From: "Jun.Wang" Date: Thu, 6 Jul 2023 03:11:02 +0000 Subject: [PATCH] fix syntax --- cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 index 1686dde92..caa3d9987 100644 --- a/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 +++ b/cicecore/drivers/nuopc/cmeps/ice_comp_nuopc.F90 @@ -244,7 +244,7 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc) character(len=char_len) :: tfrz_option ! tfrz_option from cice namelist character(len=char_len) :: tfrz_option_driver ! tfrz_option from cice namelist character(len=*), parameter :: subname=trim(modName)//':(InitializeAdvertise) ' - real(8) :: MPI_Wtime(), timeiads + real(dbl_kind) :: MPI_Wtime, timeiads !-------------------------------- timeiads = MPI_Wtime() @@ -735,7 +735,7 @@ subroutine InitializeRealize(gcomp, importState, exportState, clock, rc) character(len=char_len_long) :: single_column_lnd_domainfile character(len=char_len_long) , pointer :: lfieldnamelist(:) => null() character(len=*), parameter :: subname=trim(modName)//':(InitializeRealize) ' - real(8) :: MPI_Wtime(), timeirls + real(dbl_kind) :: MPI_Wtime, timeirls !-------------------------------- rc = ESMF_SUCCESS @@ -965,7 +965,7 @@ subroutine ModelAdvance(gcomp, rc) logical :: isPresent, isSet character(len=*),parameter :: subname=trim(modName)//':(ModelAdvance) ' character(char_len_long) :: msgString - real(8) :: MPI_Wtime + real(dbl_kind) :: MPI_Wtime !-------------------------------- rc = ESMF_SUCCESS @@ -1335,7 +1335,7 @@ subroutine ModelFinalize(gcomp, rc) ! local variables character(*), parameter :: F91 = "('(ice_comp_nuopc) ',73('-'))" character(len=*),parameter :: subname=trim(modName)//':(ModelFinalize) ' - real(8) :: MPI_Wtime, timefs + real(dbl_kind) :: MPI_Wtime, timefs !-------------------------------- rc = ESMF_SUCCESS