CALL COMPRECV_R8TILES( ocnSLPrName,
CHARACTER*(8) ocnSLPrName
PARAMETER( ocnSLPrName = 'OCN SLPr' )
CALL COUPSEND_R8TILES( ocnCompName, ocnSLPrName,