CALL COMPSEND_R8TILES( ocnSSVsqName,
CHARACTER*(9) ocnSSVsqName
PARAMETER( ocnSSVsqName = 'OCN SSVsq' )
CALL COUPRECV_R8TILES( ocnCompName, ocnSSVsqName,