f_esmf_compinsertvm Subroutine

recursive subroutine f_esmf_compinsertvm(comp, vm, rc)

Uses

  • proc~~f_esmf_compinsertvm~~UsesGraph proc~f_esmf_compinsertvm f_esmf_compinsertvm module~esmf_basemod ESMF_BaseMod proc~f_esmf_compinsertvm->module~esmf_basemod module~esmf_compmod ESMF_CompMod proc~f_esmf_compinsertvm->module~esmf_compmod module~esmf_initmacrosmod ESMF_InitMacrosMod proc~f_esmf_compinsertvm->module~esmf_initmacrosmod module~esmf_utiltypesmod ESMF_UtilTypesMod proc~f_esmf_compinsertvm->module~esmf_utiltypesmod module~esmf_vmmod ESMF_VMMod proc~f_esmf_compinsertvm->module~esmf_vmmod module~esmf_basemod->module~esmf_initmacrosmod module~esmf_basemod->module~esmf_utiltypesmod module~esmf_basemod->module~esmf_vmmod iso_c_binding iso_c_binding module~esmf_basemod->iso_c_binding module~esmf_ioutilmod ESMF_IOUtilMod module~esmf_basemod->module~esmf_ioutilmod module~esmf_logerrmod ESMF_LogErrMod module~esmf_basemod->module~esmf_logerrmod module~esmf_compmod->module~esmf_basemod module~esmf_compmod->module~esmf_initmacrosmod module~esmf_compmod->module~esmf_utiltypesmod module~esmf_compmod->module~esmf_vmmod module~esmf_calendarmod ESMF_CalendarMod module~esmf_compmod->module~esmf_calendarmod module~esmf_clockmod ESMF_ClockMod module~esmf_compmod->module~esmf_clockmod module~esmf_configmod ESMF_ConfigMod module~esmf_compmod->module~esmf_configmod module~esmf_gridmod ESMF_GridMod module~esmf_compmod->module~esmf_gridmod module~esmf_hconfigmod ESMF_HConfigMod module~esmf_compmod->module~esmf_hconfigmod module~esmf_compmod->module~esmf_ioutilmod module~esmf_locstreammod ESMF_LocStreamMod module~esmf_compmod->module~esmf_locstreammod module~esmf_compmod->module~esmf_logerrmod module~esmf_meshmod ESMF_MeshMod module~esmf_compmod->module~esmf_meshmod module~esmf_statemod ESMF_StateMod module~esmf_compmod->module~esmf_statemod module~esmf_statetypesmod ESMF_StateTypesMod module~esmf_compmod->module~esmf_statetypesmod module~esmf_utilmod ESMF_UtilMod module~esmf_compmod->module~esmf_utilmod module~esmf_xgridmod ESMF_XGridMod module~esmf_compmod->module~esmf_xgridmod module~esmf_initmacrosmod->module~esmf_utiltypesmod module~esmf_initmacrosmod->module~esmf_logerrmod module~esmf_utiltypesmod->iso_c_binding module~esmf_vmmod->module~esmf_initmacrosmod module~esmf_vmmod->module~esmf_utiltypesmod module~esmf_vmmod->iso_c_binding module~esmf_f90interfacemod ESMF_F90InterfaceMod module~esmf_vmmod->module~esmf_f90interfacemod module~esmf_vmmod->module~esmf_ioutilmod module~esmf_vmmod->module~esmf_logerrmod

Arguments

Type IntentOptional Attributes Name
type(ESMF_CWrap) :: comp
type(ESMF_VM) :: vm
integer :: rc

Calls

proc~~f_esmf_compinsertvm~~CallsGraph proc~f_esmf_compinsertvm f_esmf_compinsertvm proc~esmf_compset ESMF_CompSet proc~f_esmf_compinsertvm->proc~esmf_compset proc~esmf_vmgetthis ESMF_VMGetThis proc~f_esmf_compinsertvm->proc~esmf_vmgetthis proc~esmf_vmsetinitcreated ESMF_VMSetInitCreated proc~f_esmf_compinsertvm->proc~esmf_vmsetinitcreated proc~esmf_vmsetthis ESMF_VMSetThis proc~f_esmf_compinsertvm->proc~esmf_vmsetthis interface~esmf_configcreate ESMF_ConfigCreate proc~esmf_compset->interface~esmf_configcreate proc~esmf_basegetstatus ESMF_BaseGetStatus proc~esmf_compset->proc~esmf_basegetstatus proc~esmf_compclassgetinit ESMF_CompClassGetInit proc~esmf_compset->proc~esmf_compclassgetinit proc~esmf_configloadfile ESMF_ConfigLoadFile proc~esmf_compset->proc~esmf_configloadfile proc~esmf_imerr ESMF_IMErr proc~esmf_compset->proc~esmf_imerr proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_compset->proc~esmf_logfounderror proc~esmf_logseterror ESMF_LogSetError proc~esmf_compset->proc~esmf_logseterror proc~esmf_setname ESMF_SetName proc~esmf_compset->proc~esmf_setname proc~esmf_configcreatedefault ESMF_ConfigCreateDefault interface~esmf_configcreate->proc~esmf_configcreatedefault proc~esmf_configcreatefromsection ESMF_ConfigCreateFromSection interface~esmf_configcreate->proc~esmf_configcreatefromsection proc~esmf_basegetstatus->proc~esmf_logfounderror c_esmc_basegetstatus c_esmc_basegetstatus proc~esmf_basegetstatus->c_esmc_basegetstatus proc~esmf_configloadfile->proc~esmf_imerr proc~esmf_configloadfile->proc~esmf_logfounderror c_esmc_hconfigtoconfig c_esmc_hconfigtoconfig proc~esmf_configloadfile->c_esmc_hconfigtoconfig proc~esmf_configgetinit ESMF_ConfigGetInit proc~esmf_configloadfile->proc~esmf_configgetinit proc~esmf_configloadfile_1proc_ ESMF_ConfigLoadFile_1proc_ proc~esmf_configloadfile->proc~esmf_configloadfile_1proc_ proc~esmf_configparseattributes ESMF_ConfigParseAttributes proc~esmf_configloadfile->proc~esmf_configparseattributes proc~esmf_hconfigfileload ESMF_HConfigFileLoad proc~esmf_configloadfile->proc~esmf_hconfigfileload proc~esmf_logwrite ESMF_LogWrite proc~esmf_configloadfile->proc~esmf_logwrite proc~esmf_utilstringlowercase ESMF_UtilStringLowerCase proc~esmf_configloadfile->proc~esmf_utilstringlowercase proc~esmf_imerr->proc~esmf_logfounderror proc~esmf_initcheckdeep ESMF_InitCheckDeep proc~esmf_imerr->proc~esmf_initcheckdeep esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logfounderror->proc~esmf_logwrite proc~esmf_logseterror->esmf_breakpoint proc~esmf_logseterror->proc~esmf_logrc2msg proc~esmf_logseterror->proc~esmf_logwrite c_esmc_setname c_esmc_setname proc~esmf_setname->c_esmc_setname proc~esmf_basecreate ESMF_BaseCreate proc~esmf_setname->proc~esmf_basecreate

Source Code

recursive subroutine f_esmf_compinsertvm(comp, vm, rc)
  use ESMF_UtilTypesMod      ! ESMF utility types
  use ESMF_InitMacrosMod     ! ESMF initializer macros
  use ESMF_BaseMod           ! ESMF base class
  use ESMF_CompMod
  use ESMF_VMMod
  use ESMF_InitMacrosMod
  
  implicit none

  type(ESMF_CWrap) :: comp
  type(ESMF_VM)    :: vm
  integer          :: rc

  type(ESMF_VM)      :: local_vm
  type(ESMF_Pointer) :: this
  
  ! Initialize return code; assume routine not implemented
  rc = ESMF_RC_NOT_IMPL

  call ESMF_VMGetThis(vm, this, rc=rc)       ! Get address of C++ object
  call ESMF_VMSetThis(local_vm, this, rc=rc) ! Set address of C++ object
  call ESMF_VMSetInitCreated(local_vm)       ! Set init code

  call ESMF_CompSet(compp=comp%compp, vm=local_vm, rc=rc)
end subroutine f_esmf_compinsertvm