Exemplo n.º 1
0
void FTN(my_registrationinc)(ESMC_GridComp gcomp, int *rc){
  // register Init(), Run(), Finalize()
  printf("I am in myRegistrationInC()\n");
  ESMC_GridCompPrint(gcomp, "");

  ESMC_GridCompSetEntryPoint(gcomp, ESMC_SetInit, myInitInC, 0);
  ESMC_GridCompSetEntryPoint(gcomp, ESMC_SetRun, myRunInC, 0);
  ESMC_GridCompSetEntryPoint(gcomp, ESMC_SetFinal, myFinalInC, 0);

  // return successfully
  if (rc!=NULL) *rc = ESMF_SUCCESS;
}
Exemplo n.º 2
0
  void FTN(my_setservicesinc)(ESMC_GridComp gcomp, int *rc){
    // set entry points for standard Component methods Init(), Run(), Finalize()
    
    // initialize return code
    *rc = ESMF_SUCCESS;
    
    printf("In mySetServicesInC()\n");
    
    *rc = ESMC_GridCompPrint(gcomp, "");
    if (*rc!=ESMF_SUCCESS) return;  // bail out

    *rc = ESMC_GridCompSetEntryPoint(gcomp, ESMF_SETINIT, myInitInC, 1);
    if (*rc!=ESMF_SUCCESS) return;  // bail out
    *rc = ESMC_GridCompSetEntryPoint(gcomp, ESMF_SETRUN, myRunInC, 1);
    if (*rc!=ESMF_SUCCESS) return;  // bail out
    *rc = ESMC_GridCompSetEntryPoint(gcomp, ESMF_SETFINAL, myFinalInC, 1);
    if (*rc!=ESMF_SUCCESS) return;  // bail out
  }