CALL COMPRECV_R8TILES( ocnAirCO2Name,
CHARACTER*(10) ocnAirCO2Name
PARAMETER( ocnAirCO2Name = 'OCN AirCO2' )
CALL COUPSEND_R8TILES( ocnCompName, ocnAirCO2Name,