my_run Subroutine

    subroutine my_run(gcomp, importState, exportState, parentclock, rc)
      type(ESMF_GridComp) :: gcomp
      type(ESMF_State) :: importState
      type(ESMF_State) :: exportState
      type(ESMF_Clock) :: parentclock
      integer, intent(out) :: rc

     
      call ESMF_LogWrite("Parent Gridded Component Run routine called", ESMF_LOGMSG_INFO)

      ! Now run the subcomponents
      call ESMF_GridCompRun(comp1Grid, importState=G1imp, &
        exportState=G1exp, clock=parentclock, rc=rc)
      call ESMF_CplCompRun(compCoupler, importState=G1exp, &
        exportState=G2imp, clock=parentclock, rc=rc)
      call ESMF_GridCompRun(comp2Grid, importState=G2imp, &
        exportState=G2exp, clock=parentclock, rc=rc)


      call ESMF_LogWrite("Parent Component Run finished", ESMF_LOGMSG_INFO)
      rc=ESMF_SUCCESS

    end subroutine my_run