CALL COMPSEND_R8TILES( ocnSSSName,
CHARACTER*(7) ocnSSSName
PARAMETER( ocnSSSName = 'OCN SSS' )
CALL COUPRECV_R8TILES( ocnCompName, ocnSSSName,