for_test_set_curr_date Subroutine

public subroutine for_test_set_curr_date(yr, mon, day, tod)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	yr
integer,	intent(in)			::	mon
integer,	intent(in)			::	day
integer,	intent(in)			::	tod