CALL COMPSEND_R8TILES( ocnFCO2Name,
CHARACTER*(8) ocnFCO2Name
PARAMETER( ocnFCO2Name = 'OCN FCO2' )
CALL COUPRECV_R8TILES( ocnCompName, ocnFCO2Name,