set total forecast time to be real (#81)

NOAA-EMC · Nov 2, 2020 · 251d70c · 251d70c
1 parent 05c6657
commit 251d70c
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/MAIN_NEMS.F90 b/src/MAIN_NEMS.F90
@@ -76,14 +76,14 @@ PROGRAM MAIN_NEMS
 !-----------------------------------------------------------------------
 !
       INTEGER :: MYPE                                                   &  !<-- The MPI task ID
-                ,NHOURS_FCST                                            &  !<-- Length of forecast in hours
                 ,NSECONDS_FCST                                          &  !<-- Length of forecast in seconds
                 ,TIMESTEP_SEC_WHOLE                                     &  !<-- Integer part of timestep
                 ,TIMESTEP_SEC_NUMERATOR                                 &  !<-- Numerator of fractional part
                 ,TIMESTEP_SEC_DENOMINATOR                               &  !<-- Denominator of fractional part
                 ,YY,MM,DD                                               &  !<-- Time variables for date
                 ,HH,MNS,SEC                                                !<-- Time variables for time of day
 !
+      REAL :: NHOURS_FCST                                                  !<-- Length of forecast in hours
 
       TYPE(NEMS_Rusage) :: rusage                                          !<-- Resource usage tracking object
 
@@ -395,7 +395,7 @@ PROGRAM MAIN_NEMS
       ESMF_ERR_ABORT(RC)
 ! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
 !
-      NSECONDS_FCST=NHOURS_FCST*3600                                       !<-- The forecast length (sec) (REAL)
+      NSECONDS_FCST=nint(NHOURS_FCST*3600.)                             !<-- The forecast length (sec) (REAL)
 !
 !-----------------------------------------------------------------------
 !
@@ -540,14 +540,15 @@ PROGRAM MAIN_NEMS
 ! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
 !
         NHOURS_FCST = HH_FINAL - HH_START
+        NSECONDS_FCST = nint(NHOURS_FCST*3600.)
 !
 ! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
         MESSAGE_CHECK="MAIN: Re-set the clock after the ensemble run cycles."
 !       CALL ESMF_LogWrite(MESSAGE_CHECK,ESMF_LOGMSG_INFO,rc=RC)
 ! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
 !
         CALL ESMF_TimeIntervalSet(timeInterval = RUNDURATION            &
-                                 ,h            = NHOURS_FCST            &
+                                 ,s            = NSECONDS_FCST          &
                                  ,rc           = RC)
         ESMF_ERR_ABORT(RC)
 !