MAPL_VarSpecAddChildName Subroutine

public subroutine MAPL_VarSpecAddChildName(SPEC, CN, RC)

Arguments

Type IntentOptional Attributes Name
type(MAPL_VarSpec), pointer :: SPEC(:)
character(len=ESMF_MAXSTR), intent(in) :: CN
integer, intent(out), optional :: RC

Calls

proc~~mapl_varspecaddchildname~~CallsGraph proc~mapl_varspecaddchildname MAPL_VarSpecAddChildName proc~mapl_return MAPL_Return proc~mapl_varspecaddchildname->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

   subroutine MAPL_VarSpecAddChildName(SPEC,CN,RC)

      type (MAPL_VarSpec ), pointer           :: SPEC(:)
      character(len=ESMF_MAXSTR), intent(IN ) :: CN
      integer, optional   , intent(OUT)       :: RC




      integer K

      DO K=1,SIZE(SPEC)
         SPEC(K)%SPECptr%LONG_NAME = trim(SPEC(K)%SPECptr%LONG_NAME) // trim(CN)
      END DO


      _RETURN(ESMF_SUCCESS)
   END subroutine MAPL_VarSpecAddChildName