CALL COMPRECV_R8TILES( ocnFWFluxName,
CHARACTER*(10) ocnFWFluxName
PARAMETER( ocnFWFluxName = 'OCN FWFlux' )
CALL COUPSEND_R8TILES( ocnCompName, ocnFWFluxName,