CALL COMPRECV_R8TILES( ocnQshortWaveName,
CHARACTER*(14) ocnQshortWaveName
PARAMETER( ocnQshortWaveName = 'OCN Qshortwave' )
CALL COUPSEND_R8TILES( ocnCompName, ocnQshortWaveName,