make_gc_t Function

public function make_gc_t(rc) result(gc)

Arguments

Type IntentOptional Attributes Name
integer, intent(out), optional :: rc

Return Value type(GC_T)


Calls

proc~~make_gc_t~~CallsGraph proc~make_gc_t make_gc_t ESMF_CalendarSetDefault ESMF_CalendarSetDefault proc~make_gc_t->ESMF_CalendarSetDefault ESMF_ClockCreate ESMF_ClockCreate proc~make_gc_t->ESMF_ClockCreate ESMF_GridCompCreate ESMF_GridCompCreate proc~make_gc_t->ESMF_GridCompCreate ESMF_TimeIntervalSet ESMF_TimeIntervalSet proc~make_gc_t->ESMF_TimeIntervalSet ESMF_TimeSet ESMF_TimeSet proc~make_gc_t->ESMF_TimeSet esmf_gridcompsetservices esmf_gridcompsetservices proc~make_gc_t->esmf_gridcompsetservices esmf_statecreate esmf_statecreate proc~make_gc_t->esmf_statecreate proc~mapl_return MAPL_Return proc~make_gc_t->proc~mapl_return proc~mapl_verify MAPL_Verify proc~make_gc_t->proc~mapl_verify 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 proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~make_gc_t~~CalledByGraph proc~make_gc_t make_gc_t program~main~5 main program~main~5->proc~make_gc_t

Source Code

   function make_gc_t(rc) result(gc)
      type(GC_T) :: gc
      integer, optional, intent(out) :: rc

      integer :: status

      gc%gridcomp = ESMF_GridcompCreate(name='foo',_RC)
      gc%importState = ESMF_StateCreate(_RC)
      gc%exportState = ESMF_StateCreate(_RC)
      gc%clock = create_clock(_RC)
      call ESMF_GridCompSetServices(gc%gridcomp, setServices, _RC)

      rc = 0
   end function make_gc_t