Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(MAPL_MetaComp), | intent(inout) | :: | STATE | |||
integer, | intent(in) | :: | CHILD_ID | |||
integer, | intent(in), | optional | :: | REFRESH_INTERVAL | ||
integer, | intent(in), | optional | :: | AVERAGING_INTERVAL | ||
integer, | intent(in), | optional | :: | OFFSET | ||
integer, | intent(out), | optional | :: | RC |
subroutine MAPL_ChildAddAttribToImportSpec ( STATE, CHILD_ID, & REFRESH_INTERVAL, AVERAGING_INTERVAL, OFFSET, RC ) !ARGUMENTS: type (MAPL_MetaComp) , intent(INOUT) :: STATE integer , intent(IN) :: CHILD_ID integer , optional , intent(IN) :: REFRESH_INTERVAL integer , optional , intent(IN) :: AVERAGING_INTERVAL integer , optional , intent(IN) :: OFFSET integer , optional , intent(OUT) :: RC !EOPI character(len=ESMF_MAXSTR), parameter :: IAm="MAPL_ChildAddAttribToImportSpec" integer :: status type (MAPL_VarSpec), pointer :: SPECS(:) integer :: I type(ESMF_GridComp), pointer :: gridcomp if (.not. STATE%get_num_children() > 0) then _RETURN(ESMF_FAILURE) end if gridcomp => STATE%GET_CHILD_GRIDCOMP(CHILD_ID) call MAPL_GridCompGetVarSpecs(gridcomp, IMPORT=SPECS, RC=status) _VERIFY(status) do I = 1, size(SPECS) call MAPL_VarSpecSet(SPECS(I), & ACCMLT_INTERVAL= AVERAGING_INTERVAL, & COUPLE_INTERVAL= REFRESH_INTERVAL, & OFFSET = OFFSET, & RC=status ) _VERIFY(status) end do _RETURN(ESMF_SUCCESS) end subroutine MAPL_ChildAddAttribToImportSpec