SetReferenceTimeInteger Subroutine

private subroutine SetReferenceTimeInteger(time, layer)

set the reference time of a integer grid

Arguments

Type IntentOptional Attributes Name
type(DateTime), intent(in) :: time
type(grid_integer), intent(inout) :: layer

Source Code

SUBROUTINE SetReferenceTimeInteger &
!
(time, layer)

IMPLICIT NONE

!Arguments with intent(in):
TYPE (DateTime), INTENT(IN) :: time

!Arguments with intent(out):
TYPE(grid_integer), INTENT(INOUT) :: layer

!------------end of declaration------------------------------------------------

layer % reference_time = time

END SUBROUTINE SetReferenceTimeInteger