CALL COMPRECV_R8TILES( ocnHeatFluxName,
CHARACTER*(12) ocnHeatFluxName
PARAMETER( ocnHeatFluxName = 'OCN HeatFlux' )
CALL COUPSEND_R8TILES( ocnCompName, ocnHeatFluxName,