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; }
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 }