Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

set total forecast time to be real #81

Merged
merged 2 commits into from
Nov 2, 2020
Merged

set total forecast time to be real #81

Changes from 1 commit
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
59f3a2a
set total forecast time to be real
junwang-noaa Sep 22, 2020
da9e61f
Merge remote-tracking branch 'upstream/develop' into nems_pnet
junwang-noaa Nov 2, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 4 additions & 3 deletions src/MAIN_NEMS.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down Expand Up @@ -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)
!
!-----------------------------------------------------------------------
!
Expand Down Expand Up @@ -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)
!
Expand Down