f_esmf_gridcompcreate Subroutine

subroutine f_esmf_gridcompcreate(gcomp, name, configFile, clock, rc)

Uses

  • proc~~f_esmf_gridcompcreate~~UsesGraph proc~f_esmf_gridcompcreate f_esmf_gridcompcreate module~esmf_basemod ESMF_BaseMod proc~f_esmf_gridcompcreate->module~esmf_basemod module~esmf_clockmod ESMF_ClockMod proc~f_esmf_gridcompcreate->module~esmf_clockmod module~esmf_clocktypemod ESMF_ClockTypeMod proc~f_esmf_gridcompcreate->module~esmf_clocktypemod module~esmf_compmod ESMF_CompMod proc~f_esmf_gridcompcreate->module~esmf_compmod module~esmf_configmod ESMF_ConfigMod proc~f_esmf_gridcompcreate->module~esmf_configmod module~esmf_gridcompmod ESMF_GridCompMod proc~f_esmf_gridcompcreate->module~esmf_gridcompmod module~esmf_gridmod ESMF_GridMod proc~f_esmf_gridcompcreate->module~esmf_gridmod module~esmf_initmacrosmod ESMF_InitMacrosMod proc~f_esmf_gridcompcreate->module~esmf_initmacrosmod module~esmf_utiltypesmod ESMF_UtilTypesMod proc~f_esmf_gridcompcreate->module~esmf_utiltypesmod

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: gcomp
character(len=*) :: name
character(len=*) :: configFile
type(ESMF_Clock) :: clock
integer :: rc

Calls

proc~~f_esmf_gridcompcreate~~CallsGraph proc~f_esmf_gridcompcreate f_esmf_gridcompcreate proc~esmf_clockgetthis ESMF_ClockGetThis proc~f_esmf_gridcompcreate->proc~esmf_clockgetthis proc~esmf_clocksetinitcreated ESMF_ClockSetInitCreated proc~f_esmf_gridcompcreate->proc~esmf_clocksetinitcreated proc~esmf_clocksetthis ESMF_ClockSetThis proc~f_esmf_gridcompcreate->proc~esmf_clocksetthis proc~esmf_gridcompcreate ESMF_GridCompCreate proc~f_esmf_gridcompcreate->proc~esmf_gridcompcreate c_esmc_vmaddfobject c_esmc_vmaddfobject proc~esmf_gridcompcreate->c_esmc_vmaddfobject proc~esmf_clockgetinit ESMF_ClockGetInit proc~esmf_gridcompcreate->proc~esmf_clockgetinit proc~esmf_compconstruct ESMF_CompConstruct proc~esmf_gridcompcreate->proc~esmf_compconstruct proc~esmf_configgetinit ESMF_ConfigGetInit proc~esmf_gridcompcreate->proc~esmf_configgetinit proc~esmf_gridcompset ESMF_GridCompSet proc~esmf_gridcompcreate->proc~esmf_gridcompset proc~esmf_gridgetinit ESMF_GridGetInit proc~esmf_gridcompcreate->proc~esmf_gridgetinit proc~esmf_hconfiggetinit ESMF_HConfigGetInit proc~esmf_gridcompcreate->proc~esmf_hconfiggetinit proc~esmf_imerr ESMF_IMErr proc~esmf_gridcompcreate->proc~esmf_imerr proc~esmf_logfoundallocerror ESMF_LogFoundAllocError proc~esmf_gridcompcreate->proc~esmf_logfoundallocerror proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_gridcompcreate->proc~esmf_logfounderror proc~esmf_compconstruct->proc~esmf_logfoundallocerror proc~esmf_compconstruct->proc~esmf_logfounderror c_esmc_ftablecreate c_esmc_ftablecreate proc~esmf_compconstruct->c_esmc_ftablecreate c_esmc_methodtablecreate c_esmc_methodtablecreate proc~esmf_compconstruct->c_esmc_methodtablecreate interface~esmf_configcreate ESMF_ConfigCreate proc~esmf_compconstruct->interface~esmf_configcreate interface~esmf_vmget ESMF_VMGet proc~esmf_compconstruct->interface~esmf_vmget proc~esmf_basecreate ESMF_BaseCreate proc~esmf_compconstruct->proc~esmf_basecreate proc~esmf_configloadfile ESMF_ConfigLoadFile proc~esmf_compconstruct->proc~esmf_configloadfile proc~esmf_logseterror ESMF_LogSetError proc~esmf_compconstruct->proc~esmf_logseterror proc~esmf_vmgetcurrent ESMF_VMGetCurrent proc~esmf_compconstruct->proc~esmf_vmgetcurrent proc~esmf_vmplanconstruct ESMF_VMPlanConstruct proc~esmf_compconstruct->proc~esmf_vmplanconstruct proc~esmf_vmsetinitcreated ESMF_VMSetInitCreated proc~esmf_compconstruct->proc~esmf_vmsetinitcreated proc~esmf_vmsetthis ESMF_VMSetThis proc~esmf_compconstruct->proc~esmf_vmsetthis proc~esmf_gridcompset->proc~esmf_clockgetinit proc~esmf_gridcompset->proc~esmf_configgetinit proc~esmf_gridcompset->proc~esmf_gridgetinit proc~esmf_gridcompset->proc~esmf_hconfiggetinit proc~esmf_gridcompset->proc~esmf_imerr proc~esmf_gridcompset->proc~esmf_logfounderror proc~esmf_compset ESMF_CompSet proc~esmf_gridcompset->proc~esmf_compset proc~esmf_gridcompgetinit ESMF_GridCompGetInit proc~esmf_gridcompset->proc~esmf_gridcompgetinit proc~esmf_imerr->proc~esmf_logfounderror proc~esmf_initcheckdeep ESMF_InitCheckDeep proc~esmf_imerr->proc~esmf_initcheckdeep esmf_breakpoint esmf_breakpoint proc~esmf_logfoundallocerror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfoundallocerror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfoundallocerror->proc~esmf_logwrite proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logfounderror->proc~esmf_logwrite

Source Code

subroutine f_esmf_gridcompcreate(gcomp, name, configFile, clock, rc)
  use ESMF_UtilTypesMod      ! ESMF utility types
  use ESMF_BaseMod           ! ESMF base class
  use ESMF_ConfigMod
  use ESMF_ClockMod
  use ESMF_ClockTypeMod
  use ESMF_GridMod
  use ESMF_CompMod
  use ESMF_GridCompMod
  use ESMF_InitMacrosMod
  
  implicit none

  type(ESMF_GridComp)       :: gcomp
  character(len=*)          :: name
  character(len=*)          :: configFile
  type(ESMF_Clock)          :: clock
  integer                   :: rc

  type(ESMF_Clock)   :: local_clock
  type(ESMF_Pointer) :: this

  ! Initialize return code; assume routine not implemented
  rc = ESMF_RC_NOT_IMPL

  ! Construct a local copy of the incoming clock with initializers
  call ESMF_ClockGetThis(clock, this, rc=rc)
  call ESMF_ClockSetThis(local_clock, this, rc=rc)
  call ESMF_ClockSetInitCreated(local_clock)

  gcomp = ESMF_GridCompCreate(name=name, &
    configFile=configFile, clock=local_clock, rc=rc)
end subroutine f_esmf_gridcompcreate