search

cupid-ide / cupid

Cupid IDE and Code Generation Tool for Earth System Models
Other
5 stars 6 forks source link

NUOPC Advance specialization needs a call to NUOPC_CompSetEntryPoint #36

Closed rsdunlapiv closed 8 years ago

rsdunlapiv commented 8 years ago

If you specialize advance with a specPhaseLabel you need to add the specPhaseLabel first using NUOPC_CompSetEntryPoint:

    call NUOPC_CompSetEntryPoint(gcomp, ESMF_METHOD_RUN, &
        phaseLabelList=(/"RunPhase2"/), &
        userRoutine=mediator_routine_Run, rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, &
        file=__FILE__)) &
        return  ! bail out

    call NUOPC_CompSpecialize(gcomp, &
        specLabel=mediator_label_Advance, &
        specPhaseLabel='RunPhase2', &
        specRoutine=MediatorAdvance, rc=rc)
    if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
        line=__LINE__, &
        file=__FILE__)) &
        return  ! bail out
rsdunlapiv commented 8 years ago

Add a test for this, too.

rsdunlapiv commented 8 years ago

Fixed.