fix syntax

NOAA-EMC · Jul 6, 2023 · b475ad4 · b475ad4
1 parent e01660b
commit b475ad4
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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