Verify/enforce component time coordination. The Coupler's date in date_c is checked against the date in the infobuf of the most recently received contract for each model.
If time is uncoordinated, print out information. If time is coordinated and print is true, print out Coupler date.
If enforce is true, abort if time's are not coordinated.
REMARKS:
date/time for component models is "global" data accessed from module data_mod.REVISION HISTORY:
2002-Nov-20 - B. Kauffman - initial version.INTERFACE:
subroutine timeCheck(date_c,print,enforce)USES:
use cpl_kind_mod ! access to F90 kind declarations
use shr_cal_mod ! access to calendar routines
use shr_date_mod ! access to date routines
use data_mod ! lengthly data declarations/inits for main program
use shr_sys_mod ! wrappers to system calls
implicit none
INPUT/OUTPUT PARAMETERS:
type(shr_date),intent(in) :: date_c ! official coupler date
logical ,intent(in) :: print ! true => print out the cpl date
logical ,intent(in) :: enforce ! true => abort if time uncoordinated