For each entry in NAMES
marks the export spec
to not be deferred during MAPL_GenericInitialize
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_GridComp), | intent(inout) | :: | GC | |||
character(len=*), | intent(in) | :: | NAMES(:) | |||
integer, | intent(out), | optional | :: | RC |
subroutine MAPL_DoNotDeferExport(GC, NAMES, RC) ! !ARGUMENTS: type (ESMF_GridComp) , intent(INOUT) :: GC character (len=*) , intent(IN) :: NAMES(:) integer , optional , intent(OUT) :: RC character(len=ESMF_MAXSTR), parameter :: IAm="MAPL_DoNotDeferExport" integer :: status integer :: I, J, N, K type (MAPL_MetaComp), pointer :: STATE call MAPL_InternalStateRetrieve(GC, STATE, RC=status) _VERIFY(status) if (associated(STATE%COMPONENT_SPEC%EXPORT%OLD_VAR_SPECS)) then N = size(STATE%COMPONENT_SPEC%EXPORT%OLD_VAR_SPECS) K = size(NAMES) DO I=1,K J = MAPL_VarSpecGetIndex(STATE%COMPONENT_SPEC%EXPORT%OLD_VAR_SPECS,NAMES(I)) _ASSERT(J > 0, 'J is equal or less than 0') _ASSERT(J <= N, 'J is greater than N') call MAPL_VarSpecSet(STATE%COMPONENT_SPEC%EXPORT%OLD_VAR_SPECS(J), & alwaysAllocate = .true., & RC=status ) _VERIFY(status) END DO end if _RETURN(ESMF_SUCCESS) end subroutine MAPL_DoNotDeferExport